home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / +look_here_1st!+ / reader_requests / alienbreed3d2 / lazerbolt.s < prev    next >
Text File  |  1997-11-28  |  64KB  |  4,633 lines
  1.  
  2. SP EQU 1
  3. SPM EQU 1
  4. BS EQU 1
  5. BP EQU 1
  6. SH EQU 1
  7. PH EQU 1
  8. MB EQU 0
  9. ScreenWidth EQU 320
  10.  
  11. LARGESCREEN equ 0
  12.  
  13.  
  14. * the 'Hello World' program in 68000 Assembler
  15. * the C version can be found in the Intuition manual
  16.  
  17. * this source code (C) HiSoft 1992 All Rights Reserved
  18.  
  19. * for Devpac Amiga Version 2 the following symbols were changed
  20. * to avoid clashes with the new include files:
  21. * Screen->MyScreen, NewScreen->MyNewScreen
  22. * Window->MyWindow, NewWindow->MyNewWindow
  23.  
  24.     opt    c+,d+
  25.  
  26.     include    workbench:utilities/devpac/system            use pre-assembled header
  27.     include    exec/exec_lib.i
  28.     include    intuition/intuition.i
  29.     include    intuition/intuition_lib.i
  30.     include    graphics/graphics_lib.i
  31.     include    graphics/text.i
  32.  
  33. INTUITION_REV    equ    31        v1.1
  34. GRAPHICS_REV    equ    31        v1.1
  35.  
  36. * Open the intuition library
  37.  
  38.     moveq    #100,d4            default error return code
  39.  
  40.     moveq    #INTUITION_REV,d0    version
  41.     lea    int_name(pc),a1
  42.     CALLEXEC OpenLibrary
  43.     tst.l    d0
  44.     beq    exit_false        if failed then quit
  45.     move.l    d0,_IntuitionBase    else save the pointer
  46.  
  47.     moveq    #GRAPHICS_REV,d0
  48.     lea    graf_name(pc),a1
  49.     CALLEXEC OpenLibrary
  50.     tst.l    d0
  51. ;    beq    exit_closeint        if failed then close Int, exit
  52.     move.l    d0,_GfxBase
  53.     lea    MyNewScreen(pc),a0
  54.     CALLINT    OpenScreen        open a screen
  55.     tst.l    d0
  56. ;    beq    exit_closeall        if failed the close both, exit
  57.     move.l    d0,MyScreen
  58.  
  59.     move.l MyScreen,a0
  60.     lea sc_BitMap(a0),a0
  61.     lea bm_Planes(a0),a0
  62.  
  63.     
  64.     move.l #RAWSCRN,(a0)
  65.     move.l #RAWSCRN+10240,4(a0)
  66.     move.l #RAWSCRN+10240*2,8(a0)
  67.     move.l #RAWSCRN+10240*3,12(a0)
  68.     move.l #RAWSCRN+10240*4,16(a0)
  69.     move.l #RAWSCRN+10240*5,20(a0)
  70.     move.l #RAWSCRN+10240*6,24(a0)
  71.     move.l #RAWSCRN+10240*7,28(a0)
  72.  
  73. * now initialise a NewWindow structure. This is normally easier to
  74. * do with dc.w/dc.l statement etc, but for comparison with the C
  75. * version we do it like this
  76.     lea    MyNewWindow(pc),a0    good place to start
  77.     move.w    #20,nw_LeftEdge(a0)
  78.     move.w    #20,nw_TopEdge(a0)
  79.     move.w    #300,nw_Width(a0)
  80.     move.w    #100,nw_Height(a0)
  81.     move.b    #0,nw_DetailPen(a0)
  82.     move.b    #1,nw_BlockPen(a0)
  83.     move.l    #window_title,nw_Title(a0)
  84. _temp    set    WINDOWCLOSE!SMART_REFRESH!ACTIVATE!WINDOWSIZING
  85.     move.l    #_temp!WINDOWDRAG!WINDOWDEPTH,nw_Flags(a0)
  86.     move.l    #CLOSEWINDOW,nw_IDCMPFlags(a0)
  87.     move.w    #CUSTOMSCREEN,nw_Type(a0)
  88.     clr.l    nw_FirstGadget(a0)
  89.     clr.l    nw_CheckMark(a0)
  90.     move.l    MyScreen(pc),nw_Screen(a0)
  91.     clr.l    nw_BitMap(a0)
  92.     move.w    #100,nw_MinWidth(a0)
  93.     move.w    #25,nw_MinHeight(a0)
  94.     move.w    #640,nw_MaxWidth(a0)
  95.     move.w    #200,nw_MaxHeight(a0)
  96.  
  97. * thats it set up, now open the window (a0=NewWindow already)
  98. ;    CALLINT    OpenWindow
  99. ;    tst.l    d0
  100. ;    beq    exit_closescr            if failed
  101. ;    move.l    d0,MyWindow            save it
  102. ;
  103. ;    move.l    d0,a1                window
  104. ;    move.l    wd_RPort(a1),a1            rastport
  105. ;    moveq    #20,d0                X
  106. ;    moveq    #20,d1                Y
  107. ;    CALLGRAF Move                move the cursor
  108. ;
  109. ;    move.l    MyWindow(pc),a0
  110. ;    move.l    wd_RPort(a0),a1            rastport
  111. ;    lea    hello_message(pc),a0
  112. ;    moveq    #11,d0
  113. ;    CALLGRAF Text                print something
  114. ;
  115. ;    move.l    MyWindow(pc),a0
  116. ;    move.l    wd_UserPort(a0),a0
  117. ;    move.b    MP_SIGBIT(a0),d1        (misprint in manual)
  118. ;    moveq    #0,d0
  119. ;    bset    d1,d0                do a shift
  120. ;    CALLEXEC Wait
  121.  
  122. ;    moveq    #0,d4                return code
  123.  
  124. * various exit routines that do tidying up, given a return code in d4
  125.  
  126. ;    move.l    MyWindow(pc),a0
  127. ;    CALLINT CloseWindow
  128.  
  129. ;exit_closescr
  130. ;    move.l    MyScreen(pc),a0
  131. ;    CALLINT CloseScreen
  132.  
  133. ;exit_closeall
  134. ;    move.l    _GfxBase(pc),a1
  135. ;    CALLEXEC CloseLibrary
  136.  
  137. ;exit_closeint
  138. ;    move.l    _IntuitionBase(pc),a1
  139. ;    CALLEXEC CloseLibrary
  140.  
  141. ;done:
  142. ;    bra done
  143.  
  144. SPECULAR EQU SP
  145. SPECMAP EQU SPM
  146. BUMPSPEC EQU BS
  147. BUMPPHONG EQU BP
  148. SHADOWMAP EQU SH
  149. SHADING EQU PH
  150. MOTIONBLUR EQU MB
  151.  
  152.  
  153.  move.l #PALETTEBIT,a0
  154.  move.l #COPIEDPAL+4,a1
  155.  move.w #255,d0
  156.  
  157. copydown:
  158.  move.b 1(a0),(a1)
  159.  move.b 3(a0),4(a1)
  160.  move.b 5(a0),8(a1)
  161.  add.w #6,a0
  162.  add.w #12,a1
  163.  dbra d0,copydown
  164.  
  165.  move.w #256,COPIEDPAL
  166.  move.w #0,COPIEDPAL+2
  167. LOOKFORME:
  168.  move.l MyScreen,a0
  169.  lea sc_ViewPort(a0),a0
  170.  move.l #COPIEDPAL,a1
  171.  move.l _GfxBase,a6
  172.  jsr -$372(a6)
  173.  
  174.  move.l MyScreen,a4
  175.  move.w sc_MouseX(a4),d0
  176.  move.w sc_MouseY(a4),d1
  177.  move.w d0,OLDXM
  178.  move.w d1,OLDYM
  179.     
  180.  move.l 4.w,a6
  181.  move.l #doslibname,a1
  182.  moveq #0,d0
  183.  jsr -552(a6)
  184.  move.l d0,doslib
  185.  
  186.  move.l doslib,a6
  187.  move.l #OBJNAME,d1
  188.  move.l #1005,d2
  189.  jsr -30(a6)
  190.  move.l d0,ROTATEDPTS
  191.  
  192.  move.l doslib,a6
  193.  move.l d0,d1
  194.  move.l #POLYGONDATA,d2
  195.  move.l #30000,d3
  196.  jsr -42(a6)
  197.  
  198.  move.l doslib,a6
  199.  move.l ROTATEDPTS,d1
  200.  jsr -36(a6)
  201.  
  202. loop:
  203.  
  204.  move.w #0,temp
  205.  
  206.  move.l #POLYGONDATA,a3
  207.  move.w (a3)+,SORTIT
  208.  move.l a3,START_OF_OBJECT
  209.     
  210.  move.w (a3)+,num_points
  211.  move.w (a3)+,d6
  212.  move.w d6,num_frames
  213.  move.l a3,POINTER_TO_POINTERS
  214.  lea (a3,d6.w*4),a3
  215.  move.l a3,LinesPtr
  216.  moveq #0,d5
  217.  moveq #0,d2
  218.  
  219.  move.l POINTER_TO_POINTERS,a4
  220.  move.w (a4,d5.w*4),d2
  221.  add.l START_OF_OBJECT,d2
  222.  move.l d2,PtsPtr
  223.  move.w 2(a4,d5.w*4),d5
  224.  add.l START_OF_OBJECT,d5
  225.  move.l d5,PolyAngPtr
  226.  move.l d2,a3
  227.  move.w num_points,d5
  228.  
  229.  move.l (a3)+,OBJONOFF
  230.  
  231.  move.l a3,PointAngPtr
  232.  add.w d5,d5
  233.  move.w d5,d2
  234.  add.w d5,d5
  235.  add.w d5,d2
  236.  add.w d2,a3
  237.  move.l a3,PtsPtr
  238.  
  239.  move.l MyScreen,a4
  240.  move.w sc_MouseX(a4),d0
  241.  move.w sc_MouseY(a4),d1
  242.  
  243.  sub.w OLDXM,d0
  244.  sub.w OLDYM,d1
  245.  add.w d0,OLDXM
  246.  add.w d1,OLDYM
  247.  
  248.  btst #6,$bfe001
  249.  beq.s .SHIFTABOUT
  250.  
  251.  muls #8190,d0
  252.  divs #320,d0
  253.  add.w d0,YANG
  254.  and.w #8190,YANG
  255.  muls #8190,d1
  256.  divs #320,d1
  257.  and.w #8190,d1
  258.  add.w d1,XANG
  259.  and.w #8190,XANG
  260.  
  261. ; add.w #40,AANG
  262. ; add.w #70,BANG
  263. ; and.w #8191,AANG
  264. ; and.w #8191,BANG
  265.  
  266. ; add.w #60,CANG
  267. ; add.w #90,DANG
  268. ; and.w #8191,CANG
  269. ; and.w #8191,DANG
  270.  
  271.  
  272.  bra .ROTABOUT
  273. .SHIFTABOUT
  274.  
  275.   muls #8190,d0
  276.  divs #320,d0
  277.  add.w d0,BANG
  278.  and.w #8190,BANG
  279.  muls #8190,d1
  280.  divs #320,d1
  281.  and.w #8190,d1
  282.  add.w d1,AANG
  283.  and.w #8190,AANG
  284.  
  285.  
  286. .ROTABOUT
  287.  
  288.  move.w AANG,d1
  289.  move.w BANG,d3
  290. ; cmp.w #2,d6
  291. ; bne.s .notsecrot
  292. ; move.w CANG,d1
  293. ; move.w DANG,d3
  294. ;.notsecrot
  295.  move.l #SINETABLE,a1
  296.  move.w (a1,d1.w),XSIN    ;xsin
  297.  move.w (a1,d3.w),YSIN    ;ysin
  298.  
  299.  add.w #2048,a1
  300.  move.w (a1,d1.w),XCOS    ;xcos
  301.  move.w (a1,d3.w),YCOS    ;ycos
  302.  
  303.  move.w XANG,d1
  304.  move.w YANG,d3
  305. ; cmp.w #2,d6
  306. ; bne.s .notsecrot
  307. ; move.w CANG,d1
  308. ; move.w DANG,d3
  309. ;.notsecrot
  310.  move.l #SINETABLE,a1
  311.  move.w (a1,d1.w),XSIN2    ;xsin
  312.  move.w (a1,d3.w),YSIN2    ;ysin
  313.  
  314.  add.w #2048,a1
  315.  move.w (a1,d1.w),XCOS2    ;xcos
  316.  move.w (a1,d3.w),YCOS2    ;ycos
  317.  
  318.  
  319. ************************************************
  320. ************************************************
  321. ************************************************
  322. ************************************************
  323. ************************************************
  324. ************************************************
  325. ************************************************
  326. ************************************************
  327. ************************************************
  328. ************************************************
  329. ************************************************
  330. ************************************************
  331. ************************************************
  332. ************************************************
  333.  
  334. *SHADOW BUFFER CALCULATION
  335.  
  336.  
  337. ; First, calculate the normal brightnesses
  338. ; for points. NB: -1,-1,-1 = this point not used
  339. ; in gouraud shading.
  340.  
  341.  move.l #NORMBRIGHTS,a2
  342.  move.l PointAngPtr,a0
  343.  move.w num_points,d7
  344.  
  345.  move.l #NORMVECTS,a5
  346.  
  347.  subq #1,d7
  348.  
  349. CALCNORMBRIGHTS:
  350.  
  351.  move.w (a0)+,d0
  352.  move.w (a0)+,d1
  353.  move.w (a0)+,d2
  354.  
  355.  move.w #0,d6
  356.  
  357.  cmp.w #-1,d0
  358.  bne.s .notnot
  359.  cmp.w #-1,d1
  360.  bne.s .notnot
  361.  cmp.w #-1,d2
  362.  bne.s .notnot
  363.  
  364.  move.w #-1,x1
  365.  move.w #-1,y1
  366.  move.w #-1,z1
  367.  bra .dontbother
  368.  
  369. .notnot:
  370.  neg.w d1
  371.  
  372.  move.w d0,d3
  373.  move.w d2,d5
  374.  
  375.  muls YCOS,d0
  376.  muls YSIN,d2
  377.  sub.l d2,d0
  378.  add.l d0,d0
  379.  swap d0
  380. ; asr.l #6,d0    ; new x*512
  381.  
  382.  muls YSIN,d3
  383.  muls YCOS,d5
  384.  add.l d5,d3
  385.  add.l d3,d3
  386.  swap d3
  387.  move.w d3,d2    ; new z
  388.  
  389.  move.w d1,d4
  390.  move.w d2,d5
  391.  muls XCOS,d1
  392.  muls XSIN,d2
  393.  sub.l d2,d1
  394.  add.l d1,d1
  395.  swap d1
  396.  
  397.  muls XSIN,d4
  398.  muls XCOS,d5
  399.  add.l d5,d4
  400.  add.l d4,d4
  401.  swap d4
  402.  move.w d4,d2    ; new z
  403.  
  404.  
  405.  move.w d0,d3
  406.  move.w d2,d5
  407.  
  408.  muls YCOS2,d0
  409.  muls YSIN2,d2
  410.  sub.l d2,d0
  411.  add.l d0,d0
  412.  swap d0
  413.  
  414.  muls YSIN2,d3
  415.  muls YCOS2,d5
  416.  add.l d5,d3    
  417.  add.l d3,d3
  418.  swap d3
  419.  move.w d3,d2    ; new z
  420.  
  421.  move.w d1,d4
  422.  move.w d2,d5
  423.  muls XCOS2,d1
  424.  muls XSIN2,d2
  425.  sub.l d2,d1
  426.  add.l d1,d1
  427.  swap d1
  428.  
  429.  muls XSIN2,d4
  430.  muls XCOS2,d5
  431.  add.l d5,d4
  432.  add.l d4,d4
  433.  swap d4
  434.  
  435.  move.w d0,x1
  436.  move.w d1,y1
  437.  move.w d4,z1
  438.  
  439.  tst.w y1
  440.  blt.s .okpos
  441.  
  442.  move.w x1,d1    ; 0-1024
  443.  asr.w #4,d1    ; 0-64
  444.  move.w z1,d2    ; 0-1024
  445.  asr.w #4,d2    ; 0-64
  446.  
  447.  muls d1,d1
  448.  muls d2,d2
  449.  add.l d1,d2
  450.  jsr CALCSQROOT
  451.  tst.w d2
  452.  beq.s .okpos
  453.  
  454.  move.w d2,d3    ; 0-64
  455.  neg.w d3
  456.  add.w #127,d3    ; 64-127
  457.  
  458.  move.w z1,d4
  459.  muls d3,d4
  460.  divs d2,d4
  461.  
  462.  move.w x1,d0
  463.  muls d3,d0
  464.  divs d2,d0
  465.  
  466. ; asr.w #1,d4
  467. ; asr.w #1,d0
  468.  
  469. ; neg.w y3
  470.  
  471. .okpos
  472.  
  473.  asr.w #4,d4
  474.  add.w #128,d4
  475.  move.b d4,d6
  476.  lsl.w #8,d6
  477.  asr.w #4,d0
  478.  add.w #128,d0
  479.  move.b d0,d6
  480.  
  481. ; move.w d1,d6    ; new y 
  482. ;
  483. ; asr.w #4,d6
  484. ; add.w #20,d6
  485. ; 
  486. ; ble.s .okokok
  487. ; 
  488. ; moveq #0,d6
  489. ; 
  490. ;.okokok:
  491. ; add.w #$1c,d6
  492. ; cmp.w #1,d6
  493. ; bge.s .okokokok
  494. ; moveq #1,d6
  495. ;.okokokok:
  496.  
  497. ; add.w #64,d6
  498. ; 
  499. ; cmp.w #28,d6
  500. ; blt.s .okbig
  501. ; move.w #28,d6
  502. ;.okbig
  503.  
  504. .dontbother:
  505.  move.w x1,(a5)+
  506.  move.w y1,(a5)+
  507.  move.w z1,(a5)+
  508.  move.w d6,(a2)+
  509.  
  510.  dbra d7,CALCNORMBRIGHTS
  511.  
  512.  
  513. ; Next, calculate the point coords for
  514. ; the shadow buffer.
  515.  
  516.  move.l #SHADOWPTS,a2
  517.  move.l PtsPtr,a0
  518.  move.w num_points,d7
  519.  subq #1,d7
  520.  
  521. ROTPTLOPSHAD:
  522.  move.w (a0)+,d0
  523.  move.w d0,d3
  524.  move.w (a0)+,d1
  525.  move.w (a0)+,d2
  526.  move.w d2,d5
  527.  
  528.  muls YCOS,d0
  529.  muls YSIN,d2
  530.  sub.l d2,d0
  531.  add.l d0,d0
  532.  swap d0
  533. ; asr.l #6,d0    ; new x*512
  534.  
  535.  muls YSIN,d3
  536.  muls YCOS,d5
  537.  add.l d5,d3
  538.  add.l d3,d3
  539.  swap d3
  540.  move.w d3,d2    ; new z
  541.  
  542.  move.w d1,d4
  543.  move.w d2,d5
  544.  muls XCOS,d1
  545.  muls XSIN,d2
  546.  sub.l d2,d1
  547.  add.l d1,d1
  548.  swap d1
  549.  
  550.  muls XSIN,d4
  551.  muls XCOS,d5
  552.  add.l d5,d4
  553.  add.l d4,d4
  554.  swap d4
  555.  move.w d4,d2    ; new z
  556.   
  557.  move.w d0,d3
  558.  move.w d2,d5
  559.  
  560.  muls YCOS2,d0
  561.  muls YSIN2,d2
  562.  sub.l d2,d0
  563.  asr.l #6,d0    ; new x*512
  564.  
  565.  muls YSIN2,d3
  566.  muls YCOS2,d5
  567.  add.l d5,d3
  568.  add.l d3,d3
  569.  swap d3
  570.  move.w d3,d2    ; new z
  571.  
  572.  move.w d1,d4
  573.  move.w d2,d5
  574.  muls XCOS2,d1
  575.  muls XSIN2,d2
  576.  sub.l d2,d1
  577.  asr.l #6,d1    ; new y*512
  578.  
  579.  muls XSIN2,d4
  580.  muls XCOS2,d5
  581.  add.l d5,d4
  582.  add.l d4,d4
  583.  swap d4
  584.  move.w d4,d2    ; new z
  585.  
  586.  ext.l d2
  587.  
  588.  move.w XOFF,d5
  589.  ext.l d5
  590.  asl.l #8,d5
  591.  add.l d5,d5
  592.  add.l d5,d0
  593.  
  594.  move.l d0,(a2)+
  595.  move.l d1,(a2)+
  596.  move.w d2,(a2)+
  597.  
  598.  dbra d7,ROTPTLOPSHAD
  599.  
  600.  
  601.  
  602. ***************************************
  603. * Calculate viewer position for specularity..
  604.  
  605.  move.w #0,d0
  606.  move.w #0,d1
  607.  move.w #-1024,d2
  608.  
  609. ; move.w d0,d3
  610. ; move.w d2,d5
  611. ;
  612. ; muls YCOS,d0
  613. ; muls YSIN,d2
  614. ; sub.l d2,d0
  615. ; add.l d0,d0
  616. ; swap d0
  617. ; asr.l #6,d0    ; new x*512
  618. ; 
  619. ; muls YSIN,d3
  620. ; muls YCOS,d5
  621. ; add.l d5,d3
  622. ; add.l d3,d3
  623. ; swap d3
  624. ; move.w d3,d2    ; new z
  625. ;
  626. ; move.w d1,d4
  627. ; move.w d2,d5
  628. ; muls XCOS,d1
  629. ; muls XSIN,d2
  630. ; sub.l d2,d1
  631. ; add.l d1,d1
  632. ; swap d1
  633. ; 
  634. ; muls XSIN,d4
  635. ; muls XCOS,d5
  636. ; add.l d5,d4
  637. ; add.l d4,d4
  638. ; swap d4
  639. ; move.w d4,d2    ; new z
  640.  
  641.  move.w d0,d3
  642.  move.w d2,d5
  643.  
  644.  muls YCOS2,d0
  645.  muls YSIN2,d2
  646.  sub.l d2,d0
  647.  add.l d0,d0
  648.  swap d0
  649.  
  650.  muls YSIN2,d3
  651.  muls YCOS2,d5
  652.  add.l d5,d3    
  653.  add.l d3,d3
  654.  swap d3
  655.  move.w d3,d2    ; new z
  656.  
  657.  move.w d1,d4
  658.  move.w d2,d5
  659.  muls XCOS2,d1
  660.  muls XSIN2,d2
  661.  sub.l d2,d1
  662.  add.l d1,d1
  663.  swap d1
  664. ; asr.l #6,d1    ; new y*512
  665.  
  666.  muls XSIN2,d4
  667.  muls XCOS2,d5
  668.  add.l d5,d4
  669.  add.l d4,d4
  670.  swap d4
  671.  
  672.  move.w d0,x2b
  673.  move.w d1,y2b
  674.  move.w d4,z2b
  675.  
  676. ; Now the specular highlight efforts....
  677.  
  678.  move.l #SPECBRIGHTS,a2
  679.  move.l #NORMVECTS,a1
  680.  
  681.  move.l #SHADOWPTS,a5
  682.  
  683.  move.w num_points,d7
  684.  subq #1,d7
  685.  
  686. CALCSPECBRIGHTS:
  687.  
  688.  move.w (a1)+,x1
  689.  move.w (a1)+,y1
  690.  move.w (a1)+,z1
  691.  
  692.  move.w x2b,d0
  693.  move.l (a5)+,d1
  694.  asr.l #8,d1
  695.  asr.l #1,d1
  696.  sub.w d1,d0
  697.  move.w d0,x2
  698.  move.w y2b,d0
  699.  move.l (a5)+,d1
  700.  asr.l #8,d1
  701.  asr.l #1,d1
  702.  sub.w d1,d0
  703.  move.w d0,y2
  704.  move.w z2b,d0
  705.  sub.w (a5)+,d0
  706.  move.w d0,z2
  707.  
  708.  move.w #0,d6
  709.  
  710.  cmp.w #-1,x1
  711.  bne.s .notnot
  712.  cmp.w #-1,y1
  713.  bne.s .notnot
  714.  cmp.w #-1,z1
  715.  beq .dontbother
  716. .notnot: 
  717.  
  718.  move.w x2,d2
  719.  muls d2,d2
  720.  move.w y2,d1
  721.  muls d1,d1
  722.  add.l d1,d2
  723.  move.w z2,d1
  724.  muls d1,d1
  725.  add.l d1,d2
  726.  
  727.  jsr CALCSQROOT
  728.  
  729.  move.w d2,l2
  730.  
  731.  move.w y1,d0
  732.  muls z2,d0
  733.  move.w y2,d1
  734.  muls z1,d1
  735.  sub.l d1,d0    ; x4
  736.  
  737.  move.w z1,d1
  738.  muls x2,d1
  739.  move.w z2,d2
  740.  muls x1,d2
  741.  sub.l d2,d1    ; y4
  742.  
  743.  move.w x1,d2
  744.  muls y2,d2
  745.  move.w x2,d3
  746.  muls y1,d3
  747.  sub.l d3,d2    ; z4
  748.  
  749.  asr.l #8,d0
  750.  asr.l #8,d1
  751.  asr.l #8,d2
  752.  asr.l #2,d0
  753.  asr.l #2,d1
  754.  asr.l #2,d2
  755.  
  756.  move.w x1,d3
  757.  muls d1,d3
  758.  move.w y1,d4
  759.  muls d0,d4
  760.  sub.l d4,d3
  761.  asr.l #8,d3
  762.  asr.l #1,d3
  763.  add.w z2,d3
  764.  
  765.  muls #1024,d3
  766.  divs l2,d3
  767.  
  768.  move.w d3,z3
  769.  
  770.  move.w y1,d3
  771.  muls d2,d3
  772.  move.w z1,d4
  773.  muls d1,d4
  774.  sub.l d4,d3
  775.  asr.l #8,d3
  776.  asr.l #1,d3
  777.  add.w x2,d3
  778.  muls #1024,d3
  779.  divs l2,d3
  780.  
  781.  move.w d3,x3
  782.  
  783.  move.w z1,d3
  784.  muls d0,d3
  785.  move.w x1,d4
  786.  muls d2,d4
  787.  sub.l d4,d3
  788.  asr.l #8,d3
  789.  asr.l #1,d3
  790.  add.w y2,d3
  791.  muls #1024,d3
  792.  divs l2,d3
  793.  
  794.  move.w d3,y3
  795.  
  796.  move.w z3,d3
  797.  asr.w #4,d3
  798.  add.w #128,d3
  799.  
  800.  move.b d3,d6
  801.  lsl.w #8,d6
  802.  
  803.  move.w x3,d3
  804.  asr.w #4,d3
  805.  add.w #128,d3
  806.  move.b d3,d6
  807.   
  808.  tst.w y3
  809.  blt.s .okpos
  810.  
  811.  move.w x3,d1
  812.  asr.w #4,d1
  813.  move.w z3,d2
  814.  asr.w #4,d2
  815.  
  816.  muls d1,d1
  817.  muls d2,d2
  818.  add.l d1,d2
  819.  jsr CALCSQROOT
  820.  tst.w d2
  821.  beq.s .okpos
  822.  
  823.  move.w d2,d3
  824.  neg.w d3
  825.  add.w #127,d3
  826.  
  827.  move.w z3,d4
  828.  muls d3,d4
  829.  divs d2,d4
  830.  asr.w #4,d4
  831.  add.w #128,d4
  832.  move.b d4,d6
  833.  lsl.w #8,d6
  834.  
  835.  move.w x3,d4
  836.  muls d3,d4
  837.  divs d2,d4
  838.  asr.w #4,d4
  839.  add.w #128,d4
  840.  move.b d4,d6
  841.  
  842. ; neg.w y3
  843.  
  844. .okpos
  845.   
  846. ; add.w y2,d3
  847. ;
  848. ; move.w d3,d6
  849. ;
  850. ; asr.w #4,d6
  851. ; 
  852. ; add.w #30,d6
  853. ; 
  854. ; ble.s .okokok
  855. ; 
  856. ; moveq #0,d6
  857. ; 
  858. ;.okokok:
  859. ; add.w #$1c,d6
  860. ;
  861. ; cmp.w #1,d6
  862. ; bge.s .okokokok
  863. ; moveq #1,d6
  864. ;.okokokok:
  865.  
  866. ; 
  867. ; cmp.w #28,d6
  868. ; blt.s .okbig
  869. ; move.w #28,d6
  870. ;.okbig
  871.  
  872. .dontbother:
  873.  move.w d6,(a2)+
  874.  move.w y3,(a2)+
  875.  
  876.  dbra d7,CALCSPECBRIGHTS
  877.  
  878.  
  879.  
  880.  
  881. * NOW THE POINTS FOR ON-SCREENNESS
  882.  
  883.  move.l #ROTATEDPTS,a2
  884.  move.l PtsPtr,a0
  885.  move.w num_points,d7
  886.  subq #1,d7
  887.  
  888. ROTPTLOP:
  889.  
  890.  move.w (a0)+,d0
  891.  move.w d0,d3
  892.  move.w (a0)+,d1
  893.  move.w (a0)+,d2
  894.  move.w d2,d5
  895.  
  896.  
  897.  
  898.  muls YCOS,d0
  899.  muls YSIN,d2
  900.  sub.l d2,d0
  901.  asr.l #6,d0    ; new x*512
  902.  
  903.  muls YSIN,d3
  904.  muls YCOS,d5
  905.  add.l d5,d3
  906.  add.l d3,d3
  907.  swap d3
  908.  move.w d3,d2    ; new z
  909.  
  910.  move.w d1,d4
  911.  move.w d2,d5
  912.  muls XCOS,d1
  913.  muls XSIN,d2
  914.  sub.l d2,d1
  915.  asr.l #6,d1    ; new y*512
  916.  
  917.  muls XSIN,d4
  918.  muls XCOS,d5
  919.  add.l d5,d4
  920.  add.l d4,d4
  921.  swap d4
  922.  move.w d4,d2    ; new z
  923.  
  924.  ext.l d2
  925.  
  926.  move.w XOFF,d5
  927.  ext.l d5
  928.  asl.l #8,d5
  929.  add.l d5,d5
  930.  add.l d5,d0
  931.  
  932.  move.l d0,(a2)+
  933.  move.l d1,(a2)+
  934.  move.w d2,(a2)+
  935.  
  936.  dbra d7,ROTPTLOP
  937.  
  938. ; Now convert the rotated points to the screen:
  939.  
  940.  move.l #ROTATEDPTS,a0
  941.  move.l #ONSCREENPTS,a2
  942.  move.w num_points,d7
  943.  subq #1,d7
  944. CONVERTTOSCREEN:
  945.  move.l (a0)+,d0
  946.  move.l (a0)+,d1
  947.  move.w (a0)+,d2
  948. ; asr.w #1,d2
  949.  
  950.  add.w ZOFF,d2
  951.  ext.l d2
  952.  
  953.  move.l d0,d3
  954.  asr.l #1,d3
  955.  add.l d3,d0 
  956.  move.l d1,d3
  957.  asr.l #1,d3
  958.  add.l d3,d1 
  959.  
  960.  divs d2,d0
  961.  divs d2,d1
  962.  add.w #160*4,d0
  963.  add.w #128*4,d1
  964.  move.w d0,(a2)+
  965.  move.w d1,(a2)+
  966.  dbra d7,CONVERTTOSCREEN
  967.  
  968.  move.w #254,HIGHPOLY
  969.  
  970.  move.l LinesPtr,a1
  971.  move.l #PartBuffer,a0
  972.  move.l a0,a2
  973.  move.w #15,d0
  974. clrpartbuffSHAD:
  975.  move.l #$80000001,(a2)+
  976.  move.l #$80000001,(a2)+
  977.  move.l #$80000001,(a2)+
  978.  move.l #$80000001,(a2)+
  979.  dbra d0,clrpartbuffSHAD
  980.  
  981.  move.l #SHADOWPTS,a2
  982.  move.l OBJONOFF,d5
  983.  
  984.  move.w #0,d4
  985.  tst.w SORTIT
  986.  bne.s PutInPartsSHAD
  987.  
  988.  
  989. putinunsortedSHAD:
  990.  move.w (a1)+,d7
  991.  blt doneallpartsSHAD
  992.  lsr.l #1,d5
  993.  bcs.s .yeson
  994.  addq #2,a1
  995.  bra putinunsortedSHAD
  996. .yeson:
  997.  
  998.  move.w (a1)+,d6
  999.  move.l #0,(a0)+
  1000.  move.w d7,(a0)+
  1001.  move.w d4,(a0)+
  1002.  addq #1,d4
  1003.  bra putinunsortedSHAD
  1004.  
  1005. PutInPartsSHAD
  1006.  move.w (a1)+,d7
  1007.  blt doneallpartsSHAD
  1008.  
  1009.  lsr.l #1,d5
  1010.  bcs.s .yeson
  1011.  addq #2,a1
  1012.  bra PutInPartsSHAD
  1013. .yeson:
  1014.  
  1015.  move.w (a1)+,d6
  1016.  move.l 4(a2,d6.w),d0
  1017.  add.l #200000,d0
  1018.  
  1019.  move.l #PartBuffer-8,a0
  1020.  
  1021. stillfrontSHAD
  1022.  addq #8,a0
  1023.  cmp.l (a0),d0
  1024.  blt stillfrontSHAD
  1025.  move.l #endparttab-8,a5
  1026. domoreshiftSHAD:
  1027.  move.l -8(a5),(a5)
  1028.  move.l -4(a5),4(a5)
  1029.  subq #8,a5
  1030.  cmp.l a0,a5
  1031.  bgt.s domoreshiftSHAD
  1032.  
  1033.  move.l d0,(a0)
  1034.  move.w d7,4(a0)
  1035.  move.w d4,6(a0)
  1036.  addq #1,d4
  1037.  bra PutInPartsSHAD
  1038.  
  1039. doneallpartsSHAD:
  1040.  
  1041.  move.l #PartBuffer,a0
  1042.  
  1043.  ifne SHADOWMAP
  1044.  
  1045. PartLoopSHAD
  1046.  move.l (a0)+,d7
  1047.  blt nomorepartsSHAD
  1048.  
  1049.  move.l #SAVEHIGHS,a2
  1050.  move.w 2(a0),d0
  1051.  move.w HIGHPOLY,(a2,d0.w*2)
  1052.  
  1053.  moveq #0,d0
  1054.  move.w (a0),d0
  1055.  addq #4,a0
  1056.  add.l START_OF_OBJECT,d0
  1057.  move.l d0,a1
  1058.  
  1059. polylooSHAD:
  1060.  
  1061.  tst.w (a1)
  1062.  blt.s nomorepolysSHAD
  1063.  movem.l a0/a1/d7,-(a7)
  1064.  bsr doaSHADEpoly
  1065.  movem.l (a7)+,a0/a1/d7
  1066.  
  1067.  move.w (a1),d0
  1068.  lea 18(a1,d0.w*4),a1
  1069.  
  1070.  bra.s polylooSHAD
  1071. nomorepolysSHAD:
  1072.  sub.w #1,HIGHPOLY
  1073.  bra PartLoopSHAD
  1074. nomorepartsSHAD:
  1075.  
  1076.  endc
  1077.  
  1078. *******************************************
  1079. * Now the on-screen bit...
  1080. *******************************************
  1081.  
  1082.  move.l LinesPtr,a1
  1083.  move.l #PartBuffer,a0
  1084.  move.l a0,a2
  1085.  move.w #15,d0
  1086. clrpartbuff:
  1087.  move.l #$80000001,(a2)+
  1088.  move.l #$80000001,(a2)+
  1089.  move.l #$80000001,(a2)+
  1090.  move.l #$80000001,(a2)+
  1091.  dbra d0,clrpartbuff
  1092.  
  1093.  move.l #ROTATEDPTS,a2
  1094.  move.l OBJONOFF,d5
  1095.  
  1096.  moveq #0,d4
  1097.  
  1098.  tst.w SORTIT
  1099.  bne.s PutInParts
  1100.  
  1101. putinunsorted:
  1102.  move.w (a1)+,d7
  1103.  blt doneallparts
  1104.  lsr.l #1,d5
  1105.  bcs.s .yeson
  1106.  addq #2,a1
  1107.  bra putinunsorted
  1108. .yeson:
  1109.  
  1110.  move.w (a1)+,d6
  1111.  move.l #0,(a0)+
  1112.  move.w d7,(a0)+
  1113.  move.w d4,(a0)+
  1114.  
  1115.  addq #1,d4
  1116.  bra putinunsorted
  1117.  
  1118. PutInParts
  1119.  move.w (a1)+,d7
  1120.  blt doneallparts
  1121.  
  1122.  lsr.l #1,d5
  1123.  bcs.s .yeson
  1124.  addq #2,a1
  1125.  bra PutInParts
  1126. .yeson:
  1127.  
  1128.  move.w (a1)+,d6
  1129.  move.l (a2,d6.w),d0
  1130.  asr.l #8,d0
  1131.  asr.l #2,d0
  1132.  muls d0,d0
  1133.  move.l 4(a2,d6.w),d2
  1134.  asr.l #8,d2
  1135.  asr.l #2,d2
  1136.  muls d2,d2
  1137.  add.l d2,d0 
  1138.  move.w 8(a2,d6.w),d2
  1139.  add.w #1024,d2
  1140.  muls d2,d2
  1141.  add.l d2,d0
  1142.  
  1143.  move.l #PartBuffer-8,a0
  1144.  
  1145. stillfront
  1146.  addq #8,a0
  1147.  cmp.l (a0),d0
  1148.  blt stillfront
  1149.  move.l #endparttab-8,a5
  1150. domoreshift:
  1151.  move.l -8(a5),(a5)
  1152.  move.l -4(a5),4(a5)
  1153.  subq #8,a5
  1154.  cmp.l a0,a5
  1155.  bgt.s domoreshift
  1156.  
  1157.  move.l d0,(a0)
  1158.  move.w d7,4(a0)
  1159.  move.w d4,6(a0)
  1160.  addq #1,d4
  1161.  bra PutInParts
  1162.  
  1163. doneallparts:
  1164.  
  1165.  move.l #PartBuffer,a0
  1166.  
  1167. PartLoop
  1168.  move.l (a0)+,d7
  1169.  blt nomoreparts
  1170.  
  1171.  move.l #SAVEHIGHS,a2
  1172.  move.w 2(a0),d0
  1173.  move.w (a2,d0.w*2),HIGHPOLY
  1174.  
  1175.  moveq #0,d0
  1176.  move.w (a0),d0
  1177.  addq #4,a0
  1178.  add.l START_OF_OBJECT,d0
  1179.  move.l d0,a1
  1180.  
  1181. polyloo:
  1182.  
  1183.  tst.w (a1)
  1184.  blt.s nomorepolys
  1185.  movem.l a0/a1/d7,-(a7)
  1186.  bsr doapoly
  1187.  movem.l (a7)+,a0/a1/d7
  1188.  
  1189.  move.w (a1),d0
  1190.  lea 18(a1,d0.w*4),a1
  1191.  
  1192.  bra.s polyloo
  1193. nomorepolys:
  1194.  sub.w #1,HIGHPOLY
  1195.  bra PartLoop
  1196. nomoreparts:
  1197.  
  1198. NOPOLYS:
  1199.  
  1200. ; btst #6,$bfe001
  1201. ; beq.s .SHOWSHADOW
  1202.  
  1203.  ifne MOTIONBLUR
  1204.  
  1205.  move.l FASTBUFFER,d0
  1206.  cmp.l #fasty,d0
  1207.  bne .SHOWNSCRN
  1208.  
  1209.  move.l #fasty,a0
  1210.  move.l #fasty2,a1
  1211.  add.l #40*320+64,a0
  1212.  add.l #40*320+64,a1
  1213.  move.l #BLUR,a2
  1214.  move.w #175,d0
  1215.  moveq #0,d6
  1216. .blurchunk:
  1217.  move.w #(192/4)-1,d1
  1218. .blurline:
  1219.  
  1220.  move.l (a0),d2
  1221.  move.l d2,d4
  1222.  swap d4
  1223.  move.l (a1)+,d3
  1224.  move.l d3,d5
  1225.  swap d5
  1226.   
  1227.  lsr.w #8,d5
  1228.  move.b d5,d4
  1229.  move.w d4,d6
  1230.  move.b (a2,d6.l),d7
  1231.  
  1232.  lsl.l #8,d7
  1233.  lsl.l #8,d2
  1234.  lsl.l #8,d3
  1235.  move.l d2,d4
  1236.  move.l d3,d5
  1237.  swap d4
  1238.  swap d5
  1239.  lsr.w #8,d5
  1240.  move.b d5,d4
  1241.  move.w d4,d6
  1242.  move.b (a2,d6.l),d7
  1243.  
  1244.  lsl.l #8,d7
  1245.  lsl.l #8,d2
  1246.  lsl.l #8,d3
  1247.  move.l d2,d4
  1248.  move.l d3,d5
  1249.  swap d4
  1250.  swap d5
  1251.  lsr.l #8,d5
  1252.  move.b d5,d4
  1253.  move.w d4,d6
  1254.  move.b (a2,d6.l),d7
  1255.  
  1256.  lsl.l #8,d7
  1257.  lsl.l #8,d2
  1258.  lsl.l #8,d3
  1259.  move.l d2,d4
  1260.  move.l d3,d5
  1261.  swap d4
  1262.  swap d5
  1263.  lsr.l #8,d5
  1264.  move.b d5,d4
  1265.  move.w d4,d6
  1266.  move.b (a2,d6.l),d7
  1267.  
  1268.  move.l d7,(a0)+
  1269.  
  1270.  dbra d1,.blurline
  1271.  
  1272.  add.w #(320-192),a1
  1273.  add.w #(320-192),a0
  1274.  dbra d0,.blurchunk
  1275.  
  1276.  endc
  1277.  
  1278.  ifeq LARGESCREEN
  1279.  
  1280.  move.l FASTBUFFER,a0 
  1281.  add.l #40*320+64,a0
  1282.  move.l #RAWSCRN,a1
  1283.  add.l #40*40+8,a1
  1284.  move.l #(24)-1,d0
  1285.  move.l #175,d1
  1286.  move.w #128,d2
  1287.  move.w #16,d3
  1288.  moveq #0,d4
  1289.  moveq #0,d5
  1290.  jsr CHUNKYTOPLANAR 
  1291.  
  1292.  endc
  1293.  
  1294.  ifne LARGESCREEN
  1295.  
  1296.  move.l FASTBUFFER,a0 
  1297.  move.l #RAWSCRN,a1
  1298.  move.l #39,d0
  1299.  move.l #255,d1
  1300.  move.w #0,d2
  1301.  move.w #0,d3
  1302.  moveq #0,d4
  1303.  moveq #0,d5
  1304.  jsr CHUNKYTOPLANAR 
  1305.  
  1306.  endc
  1307.  
  1308.  
  1309.  bra .SHOWNSCRN
  1310.  
  1311. .SHOWSHADOW
  1312.  
  1313.  move.l #SHADOWBUFFER,a0
  1314.  add.l #40*256,a0
  1315.  move.l #RAWSCRN,a1
  1316.  add.l #40*40,a1
  1317.  move.l #(256/8)-1,d0
  1318.  move.l #175,d1
  1319.  move.w #0,d2
  1320.  move.w #8,d3
  1321.  moveq #0,d4
  1322.  moveq #0,d5
  1323.  jsr CHUNKYTOPLANAR 
  1324.  
  1325. .SHOWNSCRN:
  1326.  
  1327.  ifne MOTIONBLUR
  1328.  
  1329.  move.l #fasty2,d1
  1330.  move.l FASTBUFFER,d0
  1331.  cmp.l #fasty,d0
  1332.  beq.s .ok2
  1333.  move.l #fasty,d1
  1334. .ok2:
  1335.  move.l d1,FASTBUFFER 
  1336.  
  1337.  endc
  1338.  
  1339.  move.l FASTBUFFER,a0
  1340.  move.l #NEBBIE,a1
  1341.  ifeq LARGESCREEN
  1342.  add.l #40*320+64,a0
  1343.  endc
  1344.  
  1345.  move.l #BLUR,a2
  1346.  ifeq LARGESCREEN
  1347.  moveq #0,d6
  1348.  move.w #175,d0
  1349.  endc
  1350.  ifne LARGESCREEN
  1351.  move.l #$e5e5e5e5,d6
  1352.  move.w #511,d0
  1353.  endc
  1354.  
  1355. clrchunk:
  1356.  
  1357.  ifeq LARGESCREEN
  1358.  REPT 192/4
  1359.  move.l (a1)+,(a0)+
  1360.  endr
  1361.  add.w #(320-192),a0
  1362.  endc
  1363.  
  1364.  ifne LARGESCREEN
  1365.  REPT 160/4
  1366.  move.l d6,(a0)+
  1367.  endr
  1368.  endc
  1369.  
  1370.  dbra d0,clrchunk
  1371.  
  1372.  move.l #SHADOWBUFFER,a0
  1373.  move.l #-1,d1
  1374.  move.l #-1,d2
  1375.  move.w #15,d0
  1376. ;clrshad:
  1377. ; move.w #15,d5
  1378. ;innner
  1379. ; move.l d2,(a0)+
  1380. ; move.l d2,(a0)+
  1381. ; move.l d2,(a0)+
  1382. ; move.l d2,(a0)+
  1383. ; move.l d1,(a0)+
  1384. ; move.l d1,(a0)+
  1385. ; move.l d1,(a0)+
  1386. ; move.l d1,(a0)+
  1387. ; move.l d2,(a0)+
  1388. ; move.l d2,(a0)+
  1389. ; move.l d2,(a0)+
  1390. ; move.l d2,(a0)+
  1391. ; move.l d1,(a0)+
  1392. ; move.l d1,(a0)+
  1393. ; move.l d1,(a0)+
  1394. ; move.l d1,(a0)+
  1395. ; move.l d2,(a0)+
  1396. ; move.l d2,(a0)+
  1397. ; move.l d2,(a0)+
  1398. ; move.l d2,(a0)+
  1399. ; move.l d1,(a0)+
  1400. ; move.l d1,(a0)+
  1401. ; move.l d1,(a0)+
  1402. ; move.l d1,(a0)+
  1403. ; move.l d2,(a0)+
  1404. ; move.l d2,(a0)+
  1405. ; move.l d2,(a0)+
  1406. ; move.l d2,(a0)+
  1407. ; move.l d1,(a0)+
  1408. ; move.l d1,(a0)+
  1409. ; move.l d1,(a0)+
  1410. ; move.l d1,(a0)+
  1411. ; move.l d2,(a0)+
  1412. ; move.l d2,(a0)+
  1413. ; move.l d2,(a0)+
  1414. ; move.l d2,(a0)+
  1415. ; move.l d1,(a0)+
  1416. ; move.l d1,(a0)+
  1417. ; move.l d1,(a0)+
  1418. ; move.l d1,(a0)+
  1419. ; move.l d2,(a0)+
  1420. ; move.l d2,(a0)+
  1421. ; move.l d2,(a0)+
  1422. ; move.l d2,(a0)+
  1423. ; move.l d1,(a0)+
  1424. ; move.l d1,(a0)+
  1425. ; move.l d1,(a0)+
  1426. ; move.l d1,(a0)+
  1427. ; move.l d2,(a0)+
  1428. ; move.l d2,(a0)+
  1429. ; move.l d2,(a0)+
  1430. ; move.l d2,(a0)+
  1431. ; move.l d1,(a0)+
  1432. ; move.l d1,(a0)+
  1433. ; move.l d1,(a0)+
  1434. ; move.l d1,(a0)+
  1435. ; move.l d2,(a0)+
  1436. ; move.l d2,(a0)+
  1437. ; move.l d2,(a0)+
  1438. ; move.l d2,(a0)+
  1439. ; move.l d1,(a0)+
  1440. ; move.l d1,(a0)+
  1441. ; move.l d1,(a0)+
  1442. ; move.l d1,(a0)+
  1443. ; dbra d5,innner
  1444. ; exg d1,d2
  1445. ;
  1446. ; dbra d0,clrshad
  1447.  
  1448.  
  1449.  
  1450.     btst #7,$bfe001
  1451.     beq.s exit_closescr
  1452.  
  1453.  
  1454.     add.l #$8000,lmxoff
  1455.     cmp.l #40*65536,lmxoff
  1456.     blt.s .oksm
  1457.     sub.l #40*65536,lmxoff    
  1458. .oksm
  1459.  
  1460.     bra loop
  1461.     
  1462. lmxoff: dc.l 0
  1463.  
  1464. exit_closescr
  1465.     move.l    MyScreen(pc),a0
  1466.     CALLINT CloseScreen
  1467.  
  1468. exit_closeall
  1469.     move.l    _GfxBase(pc),a1
  1470.     CALLEXEC CloseLibrary
  1471.  
  1472. exit_closeint
  1473.     move.l    _IntuitionBase(pc),a1
  1474.     CALLEXEC CloseLibrary
  1475.  
  1476. exit_false
  1477.     move.l    #0,d0                return code
  1478.     rts
  1479.  
  1480. TESTTAB: ds.w 30
  1481.  
  1482. ************************************************
  1483. * SUBROUTINES HERE. ****************************
  1484. ************************************************
  1485.  
  1486.  
  1487. **********************************************************
  1488.  
  1489. * the definition of the screen - note that in assembler you
  1490. * MUST get the sizes of these fields correct, by consulting either
  1491. * the RKM or the header files
  1492.  
  1493.  
  1494. MyNewScreen    dc.w    0,0        left, top
  1495.         dc.w    320,256        width, height
  1496.         dc.w    8        depth
  1497.         dc.b    0,1        pens
  1498.         dc.w    0        viewmodes
  1499.         dc.w    CUSTOMSCREEN    type
  1500.         dc.l    MyFont        font
  1501.         dc.l    screen_title    title
  1502.         dc.l    0        gadgets
  1503.         dc.l    0        bitmap
  1504.  
  1505. * my font definition
  1506. MyFont    dc.l    font_name
  1507.     dc.w    TOPAZ_SIXTY
  1508.     dc.b    FS_NORMAL
  1509.     dc.b    FPF_ROMFONT
  1510.  
  1511. * the variables
  1512. _IntuitionBase    dc.l    0        Intuition lib pointer
  1513. _GfxBase    dc.l    0        graphics lib pointer
  1514. MyScreen        dc.l    0
  1515. MyWindow        dc.l    0
  1516. MyNewWindow    ds.b    nw_SIZE        a buffer
  1517.  
  1518.  
  1519. * some strings
  1520. int_name    INTNAME
  1521. graf_name    GRAFNAME
  1522. hello_message    dc.b    'Hello World'
  1523.  
  1524. * these are C strings, so have to be null terminated
  1525. screen_title    dc.b    'My Own Screen',0
  1526. font_name    dc.b    'topaz.font',0
  1527. window_title    dc.b    'A Simple Window',0
  1528.  
  1529.  even
  1530.  
  1531.  
  1532. doaSHADEpoly:
  1533.  
  1534.  move.w (a1)+,d7    ; sides to draw
  1535.  addq #2,a1        ; avoid holes
  1536.  
  1537.  move.l #SHADOWPTS,a3
  1538.  
  1539.  move.w (a1),d0
  1540.  move.w 4(a1),d1
  1541.  move.w 8(a1),d2
  1542.  muls #10,d0
  1543.  muls #10,d1
  1544.  muls #10,d2
  1545.  move.w 8(a3,d0.w),d3
  1546.  move.w 8(a3,d1.w),d4
  1547.  move.w 8(a3,d2.w),d5
  1548.  move.l (a3,d0.w),d0
  1549.  move.l (a3,d1.w),d1
  1550.  move.l (a3,d2.w),d2
  1551.  asr.l #8,d0
  1552.  asr.l #8,d1
  1553.  asr.l #8,d2
  1554.  asr.l #1,d0
  1555.  asr.l #1,d1
  1556.  asr.l #1,d2
  1557.  
  1558.  sub.w d1,d0
  1559.  sub.w d1,d2
  1560.  sub.w d4,d3
  1561.  sub.w d4,d5
  1562.  muls d3,d2
  1563.  muls d5,d0
  1564.  sub.l d0,d2
  1565.  bge SHADpolybehind
  1566.  
  1567.  
  1568.  
  1569.  move.w #20000,d4    ; top
  1570.  move.w #-20000,d5    ; bottom
  1571.  move.l #UVCOORDS,a4
  1572.  
  1573. putinlinesSHAD:
  1574.  move.w (a1),d0
  1575.  move.w 4(a1),d1
  1576.  
  1577.  moveq #0,d2
  1578.  move.b 2(a1),d2    ; one end U
  1579.  move.w d2,2(a4,d0.w*4)
  1580.  move.b 3(a1),d2    ; one end V
  1581.  move.w d2,(a4,d0.w*4)
  1582.  move.b 6(a1),d2    ; two end U
  1583.  move.w d2,2(a4,d1.w*4)
  1584.  move.b 7(a1),d2    ; two end V
  1585.  move.w d2,(a4,d1.w*4)
  1586.  
  1587.  move.w d0,d2
  1588.  muls #10,d2
  1589.  move.w 8(a3,d2.w),d2    ; Z
  1590.  
  1591.  cmp.w d2,d4
  1592.  ble.s .oktop
  1593.  move.w d2,d4
  1594. .oktop
  1595.  cmp.w d2,d5
  1596.  bge.s .okbot
  1597.  move.w d2,d5
  1598. .okbot
  1599.  
  1600.  movem.l d4/d5/d7/a1/a3/a4,-(a7)
  1601.  bsr SIMPLESHADLINE
  1602.  movem.l (a7)+,d4/d5/d7/a1/a3/a4
  1603.  addq #4,a1
  1604.  dbra d7,putinlinesSHAD
  1605.  addq #4,a1
  1606.   
  1607.  move.w (a1)+,TEXTUREADD
  1608.  
  1609.  asr.w #2,d4
  1610.  asr.w #2,d5
  1611.  add.w #128,d4
  1612.  add.w #128,d5
  1613.  move.w d4,TOPLINE
  1614.  move.w d5,BOTLINE
  1615.  
  1616. * Now draw the shadow polygon....
  1617.  
  1618.  move.l #SHADOWBUFFER,a2
  1619.  move.l #LEFTUVS,a0
  1620.  move.w TOPLINE,d0
  1621.  move.w BOTLINE,d1
  1622.  sub.w d0,d1
  1623.  asl.w #3,d0
  1624.  add.w d0,a0
  1625.  muls #(512/8),d0
  1626.  add.l d0,a2    ; pointer to screen line.
  1627.  
  1628.  subq #1,d1
  1629.  blt NOPOLYGONSHAD
  1630.  
  1631. DOAHORLINESHAD:
  1632.  swap d1
  1633.  
  1634.  move.w RIGHTUVS-LEFTUVS(a0),d0
  1635.  move.w (a0)+,d7
  1636.  sub.w d7,d0
  1637.  blt NOPOLYGONSHAD
  1638.  
  1639.  move.l a2,-(a7)
  1640.  
  1641. ; asr.w #2,d0
  1642. ; asr.w #2,d7
  1643.  lea (a2,d7.w*2),a2
  1644.  ext.l d0
  1645.  addq #1,d0
  1646.  
  1647.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1648.  move.w (a0)+,d4
  1649.  swap d7
  1650.  clr.w d7
  1651.  swap d4
  1652.  clr.w d4
  1653.  sub.l d4,d7
  1654.  divs.l d0,d7
  1655.  move.l d7,a5
  1656.  
  1657.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1658.  swap d7
  1659.  clr.w d7
  1660.  move.w (a0)+,d5
  1661.  swap d5
  1662.  clr.w d5
  1663.  sub.l d5,d7
  1664.  divs.l d0,d7
  1665.  move.l d7,a6
  1666.  
  1667.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1668.  swap d7
  1669.  clr.w d7
  1670.  move.w (a0)+,d6
  1671.  swap d6
  1672.  clr.w d6
  1673.  sub.l d6,d7
  1674.  divs.l d0,d7
  1675.  move.l d7,a3
  1676.  
  1677.  move.l a0,-(a7)
  1678.  move.l d1,-(a7)
  1679.  move.l #TEXTURES,a0
  1680.  move.w TEXTUREADD,d7
  1681.  bge.s .okaddtes3
  1682.  and.w #$7fff,d7
  1683.  add.l #65536*4,a0
  1684. .okaddtes3:
  1685.  ext.l d7
  1686. ; add.l d7,d7
  1687.  asl.l #8,d7
  1688.  add.l d7,a0
  1689.  move.w #0,d7
  1690.  
  1691.  subq #1,d0
  1692.  
  1693. ; d0=xdist
  1694. ; d4=U  a5=DU
  1695. ; d5=V  a6=DV
  1696. ; d6=Y  a3=DY
  1697.  moveq #0,d1
  1698.  
  1699.  swap d6
  1700.  
  1701. PLOTADOT:
  1702.  
  1703. .across
  1704.  
  1705. ; swap d4
  1706. ; swap d5
  1707. ; move.w d4,d2
  1708. ; lsl.w #8,d2
  1709. ; swap d4
  1710. ; move.b d5,d2
  1711. ; add.l a5,d4
  1712. ; swap d5
  1713. ; add.l a6,d5
  1714.  
  1715.  
  1716. ; swap d6
  1717. ; move.b (a2)+,d1
  1718. ; tst.b 1(a0,d2.w*8)
  1719. ; beq.s .noplottt
  1720.  move.b d6,(a2)
  1721.  addq #2,a2
  1722.  
  1723.  dbra d0,.across
  1724.  bra.s .plaster
  1725.  
  1726. .noplottt:
  1727.  addq #1,a2
  1728.  dbra d0,.across
  1729.  
  1730. .plaster:
  1731.  
  1732.  move.l (a7)+,d1
  1733.  move.l (a7)+,a0
  1734.  move.l (a7)+,a2
  1735.  
  1736. .noline:
  1737.  add.w #512,a2
  1738.  
  1739.  swap d1
  1740.  dbra d1,DOAHORLINESHAD
  1741.  
  1742. NOPOLYGONSHAD:
  1743.  
  1744. SHADpolybehind:
  1745.  rts
  1746.  
  1747.  
  1748. ************************************************
  1749.  
  1750. LU: dc.w 0
  1751. LV: dc.w 0
  1752. RU: dc.w 0
  1753. RV: dc.w 0
  1754.     
  1755. SIMPLESHADLINE:
  1756.  move.l #SHADOWPTS,a1
  1757.  
  1758.  move.l #UVCOORDS,a2
  1759.  move.w (a2,d0.w*4),LU
  1760.  move.w 2(a2,d0.w*4),LV
  1761.  move.w (a2,d1.w*4),RU
  1762.  move.w 2(a2,d1.w*4),RV
  1763.  
  1764.  muls #10,d0
  1765.  muls #10,d1
  1766.  move.w 8(a1,d0.w),d2        ;fz
  1767.  move.w 8(a1,d1.w),d7        ;sz
  1768.  ext.l d2
  1769.  ext.l d7
  1770.  
  1771.  move.l #LEFTUVS,a3
  1772.  asr.l #2,d2
  1773.  asr.l #2,d7
  1774.  cmp.l d2,d7 
  1775.  beq .noline
  1776.  
  1777.  bgt.s .lineonright
  1778. .lineonleft:
  1779.  move.l #RIGHTUVS,a3
  1780.  exg d0,d1
  1781.  exg d2,d7
  1782.  
  1783.  move.l LU,d5
  1784.  move.l RU,LU
  1785.  move.l d5,RU
  1786.  
  1787. .lineonright:
  1788.  
  1789.  sub.w d2,d7
  1790.  add.w #128,d2
  1791.  lea (a3,d2.w*8),a3
  1792.  
  1793.  move.w d7,YDIFF
  1794.  
  1795.  move.l (a1,d0.w),d3        ;fx
  1796.  move.l (a1,d1.w),d7        ;sx
  1797.  
  1798.  asl.l #5,d3
  1799.  asl.l #5,d7
  1800.  
  1801.  sub.l d3,d7
  1802.  divs.l YDIFF-2,d7
  1803.  move.l d7,a0    ; dx
  1804.  
  1805.  move.l #ROTATEDPTS,a1
  1806.  
  1807.  move.w LU,d4
  1808.  move.w LV,d5
  1809.  move.w RU,d6
  1810.  move.w RV,d7
  1811.  
  1812.  sub.w d4,d6
  1813.  sub.w d5,d7
  1814.  swap d4
  1815.  swap d5
  1816.  clr.w d4
  1817.  clr.w d5
  1818.  swap d6
  1819.  swap d7
  1820.  clr.w d6
  1821.  clr.w d7
  1822.  
  1823.  divs.l YDIFF-2,d6
  1824.  divs.l YDIFF-2,d7
  1825.  
  1826.  move.l d6,a4
  1827.  move.l d7,a5
  1828.  
  1829. ; asl.w #4,d0
  1830. ; asl.w #4,d1
  1831.  
  1832.  move.l 4(a1,d0.w),d6
  1833.  move.l 4(a1,d1.w),d7
  1834.  asl.l #5,d6
  1835.  asl.l #5,d7
  1836.  sub.l d6,d7
  1837.  divs.l YDIFF-2,d7
  1838.  exg d7,a6
  1839.  exg d7,d6
  1840.  
  1841.  move.l YDIFF-2,d1
  1842.  subq #1,d1
  1843.  
  1844. ; d3=x a0=dx
  1845. ; d4=u a4=du
  1846. ; d5=v a5=dv
  1847. ; d7=y a6=dy
  1848. ; d1=dz
  1849.  
  1850.  move.w HIGHPOLY,d7
  1851.  
  1852.  add.l #128*65536,d3
  1853. ; add.l #128*65536,d7
  1854.  
  1855. .PUTINLINE:
  1856.  swap d3
  1857.  move.w d3,(a3)+
  1858.  swap d3
  1859.  add.l a0,d3
  1860.  swap d4
  1861.  move.w d4,(a3)+
  1862.  swap d4
  1863.  swap d5
  1864.  add.l a4,d4
  1865.  move.w d5,(a3)+
  1866.  swap d5
  1867.  add.l a5,d5
  1868. ; swap d7
  1869.  move.w d7,(a3)+
  1870. ; swap d7
  1871. ; add.l a6,d7
  1872.  dbra d1,.PUTINLINE
  1873.  
  1874. .noline:
  1875.  rts
  1876.  
  1877. BCOS: dc.w 0
  1878. BSIN: dc.w 0
  1879. ACOS: dc.w 0
  1880. ASIN: dc.w 0
  1881.  
  1882. CCOS: dc.w 0
  1883. CSIN: dc.w 0
  1884. DCOS: dc.w 0
  1885. DSIN: dc.w 0
  1886. ECOS: dc.w 0
  1887. ESIN: dc.w 0
  1888.  
  1889. FSX: dc.w 0
  1890. FSY: dc.w 0
  1891. SSX: dc.w 0
  1892. SSY: dc.w 0
  1893.  
  1894. **************************************************
  1895.  
  1896. doapoly:
  1897.  
  1898.  move.w (a1)+,d7    ; sides to draw
  1899.  addq #2,a1        ; avoid holes
  1900.  move.w 12(a1,d7.w*4),pregour
  1901.  
  1902.  move.l #ONSCREENPTS,a3
  1903.  
  1904.  move.w (a1),d0
  1905.  move.w 4(a1),d1
  1906.  move.w 8(a1),d2
  1907.  move.w 2(a3,d0.w*4),d3
  1908.  move.w 2(a3,d1.w*4),d4
  1909.  move.w 2(a3,d2.w*4),d5
  1910.  move.w (a3,d0.w*4),d0
  1911.  move.w (a3,d1.w*4),d1
  1912.  move.w (a3,d2.w*4),d2
  1913.  
  1914.  sub.w d1,d0
  1915.  sub.w d1,d2
  1916.  sub.w d4,d3
  1917.  sub.w d4,d5
  1918.  muls d3,d2
  1919.  muls d5,d0
  1920.  sub.l d0,d2
  1921.  ble polybehind
  1922.  
  1923. ; Now we must rotate the polygons coordinates in
  1924. ; the specular map so that the texturemap is vertical
  1925. ; relative to the specular map and so that bump-
  1926. ; mapping can take place unerroneously!
  1927.  
  1928. ; movem.l d0-d7/a0-a6,-(a7)
  1929.  
  1930.  move.w #0,BCOS
  1931.  move.w #128*128,ACOS
  1932.  move.w #0,BSIN
  1933.  move.w #0,ASIN
  1934.  
  1935.  moveq #0,d3
  1936.  move.b 2(a1),d3
  1937.  moveq #0,d4
  1938.  move.b 3(a1),d4
  1939.  moveq #0,d5
  1940.  move.b 2+4(a1),d5
  1941.  moveq #0,d6
  1942.  move.b 3+4(a1),d6
  1943.  
  1944.  sub.w d3,d5
  1945.  sub.w d4,d6
  1946.  
  1947.  move.w d5,d1
  1948.  move.w d6,d2
  1949.  muls d1,d1
  1950.  muls d2,d2
  1951.  add.l d1,d2
  1952.  jsr CALCSQROOT
  1953.  tst.w d2
  1954.  beq .NOROT
  1955.  
  1956.  ext.l d5
  1957.  ext.l d6
  1958.  asl.l #7,d5
  1959.  asl.l #7,d6
  1960.  divs d2,d5
  1961.  divs d2,d6
  1962.  move.w d5,ECOS
  1963.  move.w d6,ESIN
  1964.  
  1965.  move.w ECOS,d0
  1966.  asl.w #7,d0
  1967.  move.w d0,ACOS
  1968.  move.w ESIN,d0
  1969.  asl.w #7,d0
  1970.  move.w d0,ASIN
  1971.  
  1972.  move.l #SPECBRIGHTS,a3
  1973.  
  1974.  move.w (a1),d0
  1975.  moveq #0,d5
  1976.  moveq #0,d6
  1977.  move.b (a3,d0.w*4),d5
  1978.  move.b 1(a3,d0.w*4),d6
  1979.  move.w 4(a1),d0
  1980.  moveq #0,d3
  1981.  moveq #0,d4
  1982.  move.b (a3,d0.w*4),d3
  1983.  move.b 1(a3,d0.w*4),d4
  1984.  sub.w d5,d3
  1985.  sub.w d6,d4
  1986.  
  1987.  move.w d3,d1
  1988.  move.w d4,d2
  1989.  muls d1,d1
  1990.  muls d2,d2
  1991.  add.l d1,d2
  1992.  jsr CALCSQROOT
  1993.  tst.w d2
  1994.  beq .NOROT1
  1995.  
  1996.  ext.l d3
  1997.  asl.l #7,d3
  1998.  ext.l d4
  1999.  asl.l #7,d4
  2000.  divs d2,d3
  2001.  divs d2,d4
  2002.  move.w d3,BCOS
  2003.  neg.w d4
  2004.  move.w d4,BSIN
  2005.  
  2006.  move.w ECOS,d4
  2007.  move.w ESIN,d5
  2008.  move.w d4,d2
  2009.  move.w d5,d3
  2010.  muls BCOS,d2
  2011.  muls BSIN,d3
  2012.  sub.l d3,d2
  2013.  muls BSIN,d4
  2014.  muls BCOS,d5
  2015.  add.l d5,d4
  2016.  move.w d2,ACOS
  2017.  move.w d4,ASIN
  2018.  
  2019. .NOROT1
  2020.  
  2021.  move.w #0,DCOS
  2022.  move.w #0,DSIN
  2023.  move.w ECOS,d0
  2024.  asl.w #7,d0
  2025.  move.w d0,CCOS
  2026.  move.w ESIN,d0
  2027.  asl.w #7,d0
  2028.  move.w d0,CSIN
  2029.  
  2030. ; bra .NOROT
  2031.  
  2032. ; First calculate angle B
  2033.  
  2034.  move.l #NORMBRIGHTS,a3
  2035.  
  2036.  movem.l d7/a1,-(a7)
  2037.  
  2038. .findnonzer:
  2039.  
  2040.  move.w (a1),d0
  2041.  moveq #0,d5
  2042.  moveq #0,d6
  2043.  move.b (a3,d0.w*2),d5
  2044.  move.b 1(a3,d0.w*2),d6
  2045.  move.w 4(a1),d0
  2046.  moveq #0,d3
  2047.  moveq #0,d4
  2048.  move.b (a3,d0.w*2),d3
  2049.  move.b 1(a3,d0.w*2),d4
  2050.  sub.w d5,d3
  2051.  sub.w d6,d4
  2052.  bne.s .okok
  2053.  tst.w d3
  2054.  bne.s .okok
  2055.  
  2056.  addq #4,a1
  2057.  
  2058.  dbra d7,.findnonzer
  2059.  
  2060.  movem.l (a7)+,d7/a1
  2061.  bra .NOROT
  2062.  
  2063. .okok:
  2064.  
  2065.  moveq #0,d3
  2066.  move.b 2(a1),d3
  2067.  moveq #0,d4
  2068.  move.b 3(a1),d4
  2069.  moveq #0,d5
  2070.  move.b 2+4(a1),d5
  2071.  moveq #0,d6
  2072.  move.b 3+4(a1),d6
  2073.  
  2074.  sub.w d3,d5
  2075.  sub.w d4,d6
  2076.  
  2077.  move.w d5,d1
  2078.  move.w d6,d2
  2079.  muls d1,d1
  2080.  muls d2,d2
  2081.  add.l d1,d2
  2082.  jsr CALCSQROOT
  2083.  tst.w d2
  2084.  beq .NOROT8
  2085.  
  2086.  ext.l d5
  2087.  ext.l d6
  2088.  asl.l #7,d5
  2089.  asl.l #7,d6
  2090.  divs d2,d5
  2091.  divs d2,d6
  2092.  move.w d5,ECOS
  2093.  neg.w d6
  2094.  move.w d6,ESIN
  2095.  move.w ECOS,d0
  2096.  asl.w #7,d0
  2097.  move.w d0,CCOS
  2098.  move.w ESIN,d0
  2099.  asl.w #7,d0
  2100.  neg.w d0
  2101.  move.w d0,CSIN
  2102.  
  2103. .NOROT8:
  2104.  
  2105.  movem.l (a7)+,d7/a1
  2106.  
  2107.  move.w d3,d1
  2108.  move.w d4,d2
  2109.  muls d1,d1
  2110.  muls d2,d2
  2111.  add.l d1,d2
  2112.  jsr CALCSQROOT
  2113.  tst.w d2
  2114.  beq .NOROT
  2115.  
  2116.  ext.l d3
  2117.  asl.l #7,d3
  2118.  ext.l d4
  2119.  asl.l #7,d4
  2120.  divs d2,d3
  2121.  divs d2,d4
  2122.  move.w d3,DCOS
  2123.  neg.w d4
  2124.  move.w d4,DSIN
  2125.  
  2126.  move.w ECOS,d4
  2127.  move.w ESIN,d5
  2128.  move.w d4,d2
  2129.  move.w d5,d3
  2130.  muls DCOS,d2
  2131.  muls DSIN,d3
  2132.  sub.l d3,d2
  2133.  muls DSIN,d4
  2134.  muls DCOS,d5
  2135.  add.l d5,d4
  2136.  move.w d2,CCOS
  2137.  move.w d4,CSIN
  2138.  
  2139.  
  2140. .NOROT:
  2141.  
  2142. ; movem.l (a7)+,d0-d7/a0-a6
  2143.  
  2144.  move.l #ONSCREENPTS,a3
  2145.  
  2146.  move.w #20000,d4    ; top
  2147.  move.w #-20000,d5    ; bottom
  2148.  move.l #UVCOORDS,a4
  2149.  
  2150.  move.l a1,a0
  2151.  
  2152. putinlines:
  2153.  move.w (a1),d0
  2154.  move.w 4(a1),d1
  2155.  
  2156.  moveq #0,d2
  2157.  move.b 2(a1),d2    ; one end U
  2158.  move.w d2,2(a4,d0.w*4)
  2159.  move.b 3(a1),d2    ; one end V
  2160.  move.w d2,(a4,d0.w*4)
  2161.  move.b 6(a1),d2    ; two end U
  2162.  move.w d2,2(a4,d1.w*4)
  2163.  move.b 7(a1),d2    ; two end V
  2164.  move.w d2,(a4,d1.w*4)
  2165.  
  2166.  move.w 2(a3,d0.w*4),d2    ; Z
  2167.  
  2168.  cmp.w d2,d4
  2169.  ble.s .oktop
  2170.  move.w d2,d4
  2171. .oktop
  2172.  cmp.w d2,d5
  2173.  bge.s .okbot
  2174.  move.w d2,d5
  2175. .okbot
  2176.  
  2177.  movem.l a0/d4/d5/d7/a1/a3/a4,-(a7)
  2178.  jsr SIMPLECALCLINE
  2179.  movem.l (a7)+,a0/d4/d5/d7/a1/a3/a4
  2180.  addq #4,a1
  2181.  dbra d7,putinlines
  2182.  addq #4,a1 
  2183.  
  2184.  move.w (a1)+,TEXTUREADD
  2185.  
  2186.  asr.w #2,d4
  2187.  asr.w #2,d5
  2188. ; add.w #128,d4
  2189. ; add.w #128,d5
  2190.  move.w d4,TOPLINE
  2191.  move.w d5,BOTLINE
  2192.   
  2193.  move.l #SHADOWPTS,a1
  2194.  move.w (a0),d0
  2195.  move.w 4(a0),d1
  2196.  move.w 8(a0),d2
  2197.  
  2198. CHECKVALS:
  2199.  
  2200.  muls #10,d0
  2201.  muls #10,d1
  2202.  muls #10,d2
  2203.  
  2204.  lea (a1,d0.w),a0
  2205.  lea (a1,d2.w),a2
  2206.  lea (a1,d1.w),a1
  2207.  
  2208.  move.l (a0),d3
  2209.  sub.l (a1),d3
  2210.  asr.l #8,d3
  2211.  asr.l #1,d3
  2212.  move.l 4(a0),d4
  2213.  sub.l 4(a1),d4
  2214.  asr.l #8,d4
  2215.  asr.l #1,d4
  2216.  move.w 8(a0),d5
  2217.  sub.w 8(a1),d5
  2218.  
  2219.  move.w d3,d6
  2220.  muls d6,d6
  2221.  move.w d4,d7
  2222.  muls d7,d7
  2223.  add.l d7,d6
  2224.  move.w d5,d7
  2225.  muls d7,d7
  2226.  add.l d7,d6
  2227.  move.l d6,d2
  2228.  jsr CALCSQROOT
  2229.  move.w d2,LEN1
  2230.  
  2231.  move.l (a2),d0
  2232.  sub.l (a1),d0
  2233.  asr.l #8,d0
  2234.  asr.l #1,d0
  2235.  move.l 4(a2),d1
  2236.  sub.l 4(a1),d1
  2237.  asr.l #8,d1
  2238.  asr.l #1,d1
  2239.  move.w 8(a2),d2
  2240.  sub.w 8(a1),d2
  2241.  
  2242.  muls d2,d3
  2243.  muls d0,d5
  2244.  sub.l d3,d5    ; length
  2245.  muls.l #$4c,d5
  2246.  
  2247.  muls d0,d0
  2248.  muls d1,d1
  2249.  muls d2,d2
  2250.  add.l d0,d1
  2251.  add.l d1,d2
  2252.  jsr CALCSQROOT
  2253.  
  2254.  muls LEN1,d2
  2255.  bgt.s .ok
  2256.  moveq #1,d2
  2257. .ok
  2258.  
  2259.  divs.l d2,d5
  2260.  
  2261.  add.l #16,d5
  2262.  
  2263.  tst.l d5
  2264.  ble.s .okbr
  2265.  moveq #0,d5
  2266. .okbr:
  2267.  add.w #$5c,d5
  2268.  bge.s .okbr2
  2269.  moveq #0,d5
  2270. .okbr2:
  2271.  
  2272.  move.w d5,d0
  2273.  
  2274.  asl.w #8,d5
  2275.  move.w d5,BRIGHTNESS+2
  2276.  
  2277.  sub.w #$5c,d0
  2278.  asr.w #1,d0
  2279.  add.w #$5c,d0
  2280.  asl.w #8,d0
  2281.  move.w d0,BRIGHTNESS
  2282.  
  2283.  
  2284. ***********************************************
  2285. * Draw the polygon (shadowed).
  2286.  
  2287.  move.l FASTBUFFER,a2
  2288.  move.l #LEFTUVS,a0
  2289.  move.w TOPLINE,d0
  2290.  move.w BOTLINE,d1
  2291.  sub.w d0,d1
  2292.  move.w d0,d2
  2293.  muls #20,d2
  2294.  add.l d2,a0
  2295.  muls #320,d0
  2296.  add.l d0,a2    ; pointer to screen line.
  2297.  
  2298.  subq #1,d1
  2299.  blt NOPOLYGON
  2300.  
  2301.  tst.b Gouraud
  2302.  bne GOURPOLY
  2303.  
  2304. DOAHORLINE:
  2305.  swap d1
  2306.  
  2307.  move.w RIGHTUVS-LEFTUVS(a0),d0
  2308.  move.w (a0)+,d7
  2309.  asr.w #2,d0
  2310.  asr.w #2,d7
  2311.  sub.w d7,d0
  2312.  bge.s .okflibble
  2313.  
  2314.  add.w #14,a0
  2315.  add.w #320,a2
  2316.  swap d1
  2317.  dbra d1,DOAHORLINE
  2318.  bra NOPOLYGON
  2319.  
  2320. .okflibble:
  2321.  
  2322.  move.l a2,-(a7)
  2323.  
  2324.  add.w d7,a2
  2325.  ext.l d0
  2326.  addq #1,d0
  2327.  
  2328.  move.l RIGHTUVS-LEFTUVS(a0),d7
  2329.  move.l (a0)+,d2 
  2330.  sub.l d2,d7
  2331.  divs.l d0,d7
  2332.  move.l d7,a1
  2333.  
  2334.  
  2335.  
  2336.  
  2337.  
  2338.  
  2339.  
  2340.  
  2341.  
  2342.  
  2343.  
  2344.  
  2345.  
  2346.  
  2347.  
  2348.  
  2349.  
  2350.  
  2351.  move.l RIGHTUVS-LEFTUVS(a0),d7 
  2352.  move.l (a0)+,d3 
  2353.  
  2354.  
  2355.  
  2356.  
  2357.  
  2358.  
  2359.  
  2360.  
  2361.  
  2362.  
  2363.  
  2364.  
  2365.  
  2366.  
  2367.  
  2368.  
  2369.  
  2370.  
  2371.  
  2372.  
  2373.  sub.l d3,d7
  2374.  divs.l d0,d7
  2375.  move.l d7,a4
  2376.  
  2377.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2378.  move.w (a0)+,d4
  2379.  swap d7
  2380.  clr.w d7
  2381.  swap d4
  2382.  clr.w d4
  2383.  sub.l d4,d7
  2384.  divs.l d0,d7
  2385.  move.l d7,a5
  2386.  
  2387.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2388.  swap d7
  2389.  clr.w d7
  2390.  move.w (a0)+,d5
  2391.  swap d5
  2392.  clr.w d5
  2393.  sub.l d5,d7
  2394.  divs.l d0,d7
  2395.  move.l d7,a6
  2396.  
  2397.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2398.  swap d7
  2399.  clr.w d7
  2400.  move.w (a0)+,d6
  2401.  swap d6
  2402.  clr.w d6
  2403.  sub.l d6,d7
  2404.  divs.l d0,d7
  2405.  move.l d7,a3
  2406.  
  2407.  move.l a0,-(a7)
  2408.  move.l d1,-(a7)
  2409.  move.l #TEXTURES,a0
  2410.  move.w TEXTUREADD,d7
  2411.  bge.s .okaddtes3
  2412.  and.w #$7fff,d7
  2413.  add.l #65536*4,a0
  2414. .okaddtes3:
  2415.  ext.l d7
  2416. ; add.l d7,d7
  2417.  asl.l #8,d7
  2418.  add.l d7,a0
  2419.  move.w #0,d7
  2420.  
  2421.  move.l BRIGHTNESS,a6
  2422.  
  2423.  move.l a7,SAVESTACK
  2424.  move.l #SHADOWBUFFER,a7
  2425.  
  2426.  subq #1,d0
  2427.  
  2428. ; d0=xdist
  2429. ; d2=U    a1=DU
  2430. ; d3=V  a4=DV
  2431. ; d4=X  a5=DX
  2432. ; d5=Y  a6=DY
  2433. ; d6=Z  a3=DZ
  2434.  move.w HIGHPOLY,d5
  2435.  
  2436.  moveq #0,d1
  2437.  swap d6
  2438.  move.w d6,d1
  2439.  lsl.w #8,d1
  2440.  swap d4
  2441.  move.b d4,d1
  2442.  swap d4
  2443.  swap d6
  2444.  
  2445.  moveq #0,d7
  2446.  move.b (a7,d1.l),d7
  2447.  cmp.w d7,d5
  2448.  ble INTHELIGHT
  2449.  bra.s INTHEDARK
  2450.  
  2451. PENUMBRA:
  2452.  moveq #0,d1
  2453.  swap d6
  2454.  move.w d6,d1
  2455.  lsl.w #8,d1
  2456.  swap d4
  2457.  move.b d4,d1
  2458.  swap d4
  2459.  swap d6
  2460.  add.l a5,d4
  2461.  add.l a3,d6
  2462.  
  2463.      moveq #0,d7
  2464.  move.b (a7,d1.l),d7
  2465.  cmp.w d7,d5
  2466.  ble INTOLIGHT
  2467.  bra.s INTODARK
  2468.  
  2469.  
  2470. INTHEDARK:
  2471.  moveq #0,d1
  2472.  swap d6
  2473.  move.w d6,d1
  2474.  lsl.w #8,d1
  2475.  swap d4
  2476.  move.b d4,d1
  2477.  swap d4
  2478.  swap d6
  2479.  add.l a5,d4
  2480.  add.l a3,d6
  2481.  
  2482.  moveq #0,d7
  2483.  move.b (a7,d1.l),d7
  2484.  cmp.w d7,d5
  2485.  ble.s INTOPENUM
  2486. INTODARK:
  2487.  move.w #$5c00,d7
  2488.  swap d2
  2489.  move.w d2,d1
  2490.  asl.w #8,d1
  2491.  swap d3
  2492.  move.b d3,d1
  2493.  swap d2
  2494.  swap d3
  2495.  add.l a1,d2
  2496.  add.l a4,d3
  2497.  
  2498. ; move.b (a0,d1.w*4),d7
  2499. ; beq.s .noplottt
  2500.  
  2501.  move.b TEXTUREPAL-256(pc,d7.w),(a2)+
  2502.  dbra d0,INTHEDARK
  2503.  bra.s PASTAC 
  2504.  
  2505. .noplottt
  2506.  addq #1,a2
  2507.  dbra d0,INTHEDARK
  2508.  bra.s PASTAC
  2509.  
  2510. INTOPENUM:
  2511.  move.l a6,d7
  2512.  swap d7
  2513.  swap d2
  2514.  move.w d2,d1
  2515.  asl.w #8,d1
  2516.  swap d3
  2517.  move.b d3,d1
  2518.  swap d2
  2519.  swap d3
  2520.  add.l a1,d2
  2521.  add.l a4,d3
  2522.  
  2523. ; move.b (a0,d1.w*4),d7
  2524. ; beq.s .noplottt
  2525.  
  2526.  move.b TEXTUREPAL(pc,d7.w),(a2)+
  2527.  dbra d0,PENUMBRA
  2528.  bra.s PASTAC 
  2529.  
  2530. .noplottt
  2531.  addq #1,a2
  2532.  dbra d0,PENUMBRA
  2533.  bra.s PASTAC
  2534.  
  2535. INTHELIGHT:
  2536.  
  2537.  moveq #0,d1
  2538.  swap d6
  2539.  move.w d6,d1
  2540.  lsl.w #8,d1
  2541.  swap d4
  2542.  move.b d4,d1
  2543.  swap d4
  2544.  swap d6
  2545.  add.l a5,d4
  2546.  add.l a3,d6
  2547.  
  2548.  moveq #0,d7
  2549.  move.b (a7,d1.l),d7
  2550.  cmp.w d7,d5
  2551.  bgt.s INTOPENUM
  2552. INTOLIGHT:
  2553.  move.w a6,d7
  2554.  swap d2
  2555.  move.w d2,d1
  2556.  asl.w #8,d1
  2557.  swap d3
  2558.  move.b d3,d1
  2559.  swap d2
  2560.  swap d3
  2561.  add.l a1,d2
  2562.  add.l a4,d3
  2563.  
  2564. ; move.b (a0,d1.w*4),d7
  2565. ; beq.s .noplottt
  2566.  
  2567.  move.b TEXTUREPAL(pc,d7.w),(a2)+
  2568.  dbra d0,INTHELIGHT
  2569.  bra.s PASTAC 
  2570.  
  2571. .noplottt:
  2572.  addq #1,a2
  2573.  dbra d0,INTHELIGHT
  2574.  
  2575. PASTAC
  2576.  
  2577.  move.l SAVESTACK,a7
  2578.  
  2579.  move.l (a7)+,d1
  2580.  move.l (a7)+,a0
  2581.  move.l (a7)+,a2
  2582.  
  2583. .noline:
  2584.  add.w #320,a2
  2585.  
  2586.  swap d1
  2587.  dbra d1,DOAHORLINE
  2588.  
  2589. NOPOLYGON:
  2590. polybehind:
  2591.  rts
  2592.  
  2593. TEXTUREPAL:
  2594.  
  2595. SAVESTACK: dc.l 0
  2596. HIGHPOLY: dc.w 0
  2597. LEN1: dc.w 0
  2598. BRIGHTNESS: dc.l 0
  2599. TRANSTEXT: dc.w 0
  2600. AANG: dc.w 0
  2601. BANG: dc.w 0
  2602. CANG: dc.w 0
  2603. DANG: dc.w 0
  2604.  
  2605.  include "ab3:print.s"
  2606.  
  2607.  temp: dc.w 0
  2608.  
  2609. GOURPOLY: 
  2610.  
  2611. DOAHORLINEGOUR:
  2612.  swap d1
  2613.  
  2614.  ifeq SHADING
  2615.  move.w #128,16(a0)
  2616.  move.w #128,16+RIGHTUVS-LEFTUVS(a0)
  2617.  move.w #128,4+RIGHTUVS-LEFTUVS(a0)
  2618.  move.w #128,4(a0)
  2619.  endc
  2620.  
  2621.  move.w RIGHTUVS-LEFTUVS(a0),d0
  2622.  move.w (a0)+,d7
  2623.  asr.w #2,d0
  2624.  asr.w #2,d7
  2625.  sub.w d7,d0
  2626.  bge.s .okflibble
  2627.  
  2628.  add.w #18,a0
  2629.  add.w #320,a2
  2630.  swap d1
  2631.  dbra d1,DOAHORLINEGOUR
  2632.  bra NOPOLYGON
  2633.  
  2634. .okflibble:
  2635.  
  2636.  move.l a2,-(a7)
  2637.  
  2638.  add.w d7,a2
  2639.  ext.l d0
  2640.  addq #1,d0
  2641.  
  2642.  move.b RIGHTUVS-LEFTUVS(a0),d3
  2643.  move.b (a0),d2
  2644.  
  2645.  ext.w d3
  2646.  ext.w d2
  2647.  
  2648.  tst.w d2
  2649.  blt .bothtowards
  2650.  
  2651. ; bgt .firstaway
  2652.  tst.w d3
  2653.  blt .bothtowards
  2654.  bra .bothaway
  2655.  
  2656. .firsttowards:
  2657.  tst.w d3
  2658.  ble .bothtowards
  2659.  
  2660. ; First is towards and second away...
  2661.  
  2662.  move.w d0,d7    ; total length
  2663.  move.w d0,d6
  2664.  neg.w d2
  2665.  add.w d2,d3
  2666.  muls d2,d6
  2667.  divs d3,d6    ; length of first bit
  2668.  sub.w d6,d7    ; length of second bit
  2669.  move.w d6,FIRSTLEN
  2670.  move.w d7,LASTLEN
  2671.  
  2672.  tst.w FIRSTLEN
  2673.  beq .bothaway
  2674.  tst.w LASTLEN
  2675.  beq .bothtowards
  2676.  
  2677.  moveq #0,d2
  2678.  moveq #0,d3
  2679.  moveq #0,d4
  2680.  moveq #0,d5
  2681.  move.b 6(a0),d2
  2682.  move.b 7(a0),d3
  2683.  
  2684.  move.w d2,FIRSTU
  2685.  move.w d3,FIRSTV
  2686.  
  2687.  move.w d2,d4
  2688.  move.w d3,d5
  2689.  sub.w #128,d2
  2690.  sub.w #128,d3
  2691.  muls d2,d2
  2692.  muls d3,d3
  2693.  add.l d3,d2
  2694.  jsr CALCSQROOT
  2695.  
  2696.  tst.w d2
  2697.  beq.s .nochng
  2698.  
  2699.  sub.w #128,d4
  2700.  sub.w #128,d5
  2701.  muls #127,d4
  2702.  muls #127,d5
  2703.  divs d2,d4
  2704.  divs d2,d5
  2705.  add.w #128,d4
  2706.  add.w #128,d5
  2707.  
  2708. .nochng:
  2709.  
  2710.  move.w d4,MIDU
  2711.  move.w d5,MIDV
  2712.  
  2713.  move.b 6+RIGHTUVS-LEFTUVS(a0),d4
  2714.  move.b 7+RIGHTUVS-LEFTUVS(a0),d5
  2715.  move.w d4,SECU
  2716.  move.w d5,SECV
  2717.  
  2718.  move.w d4,d2
  2719.  move.w d5,d3
  2720.  
  2721.  sub.w #128,d2
  2722.  sub.w #128,d3
  2723.  muls d2,d2
  2724.  muls d3,d3
  2725.  add.l d3,d2
  2726.  jsr CALCSQROOT
  2727.  
  2728.  tst.w d2
  2729.  beq.s .nochng2
  2730.  
  2731.  sub.w #128,d4
  2732.  sub.w #128,d5
  2733.  muls #127,d4
  2734.  muls #127,d5
  2735.  divs d2,d4
  2736.  divs d2,d5
  2737.  add.w #128,d4
  2738.  add.w #128,d5
  2739.  
  2740. .nochng2:
  2741.  
  2742.  add.w MIDU,d4
  2743.  add.w MIDV,d5
  2744.  asr.w #1,d4
  2745.  asr.w #1,d5
  2746.  move.w d4,MIDU
  2747.  move.w d5,MIDV 
  2748.  
  2749.  move.l RIGHTUVS-LEFTUVS(a0),d7
  2750.  move.l (a0)+,d2 
  2751.  
  2752.  and.l #$ffffff,d2
  2753.  and.l #$ffffff,d7
  2754.  
  2755.  moveq #0,d3
  2756.  moveq #0,d5
  2757.  move.w d2,d3
  2758. ; bge.s .okp1
  2759. ; moveq #0,d3
  2760. ;.okp1
  2761.  move.w d7,d5
  2762. ; bge.s .okp2
  2763. ; moveq #0,d5
  2764. ;.okp2
  2765.  
  2766.  swap d3
  2767.  swap d5
  2768.  sub.l d3,d5
  2769.  divs.l d0,d5
  2770.  asr.l #8,d5
  2771.  move.w d5,RIGHTBRIGHT
  2772.  asr.l #8,d3
  2773.  move.w d3,LEFTBRIGHT
  2774.  
  2775.  clr.w d2
  2776.  clr.w d7
  2777.  sub.l d2,d7
  2778.  asl.l #8,d2
  2779.  divs.l d0,d7
  2780.  asl.l #8,d7
  2781.  
  2782.  move.l RIGHTUVS-LEFTUVS(a0),d6 
  2783.  move.l (a0)+,d3
  2784.  
  2785.  moveq #0,d4
  2786.  moveq #0,d5
  2787.  
  2788. ; move.w d6,d5
  2789. ; move.w d3,d4
  2790. ; move.b #0,d4
  2791. ; move.b #0,d5
  2792.  
  2793.  move.w FIRSTU,d4
  2794.  move.w MIDU,d5
  2795.  lsl.l #8,d4
  2796.  lsl.l #8,d5
  2797.  
  2798.  sub.l d4,d5
  2799.  divs.l FIRSTLEN-2,d5
  2800.  
  2801.  move.w d4,d2
  2802.  move.w d5,d7
  2803.  move.l d7,a1
  2804.  moveq #0,d4
  2805.  moveq #0,d5
  2806.  
  2807. ; move.b d6,d5
  2808. ; move.b d3,d4
  2809.  
  2810. ; swap d5
  2811. ; swap d4
  2812.  
  2813.  move.w FIRSTV,d4
  2814.  move.w MIDV,d5
  2815.  swap d4
  2816.  swap d5
  2817.  
  2818.  sub.l d4,d5
  2819.  divs.l FIRSTLEN-2,d5
  2820.  
  2821.  move.l d5,a3
  2822.  move.l d4,d5
  2823.   
  2824.  clr.w d3
  2825.  clr.w d6
  2826.  sub.l d3,d6
  2827.  divs.l d0,d6
  2828.  move.l d6,a4
  2829.  
  2830.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2831.  move.w (a0)+,d4
  2832.  swap d7
  2833.  clr.w d7
  2834.  swap d4
  2835.  clr.w d4
  2836.  sub.l d4,d7
  2837.  divs.l d0,d7
  2838.  move.l d7,a5
  2839.  
  2840. ; move.w RIGHTUVS-LEFTUVS(a0),d7
  2841. ; swap d7
  2842. ; clr.w d7
  2843.  move.w (a0)+,d7
  2844. ; swap d5
  2845. ; clr.w d5
  2846. ; sub.l d5,d7
  2847. ; divs.l d0,d7
  2848. ; move.l d7,a6
  2849.  
  2850.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2851.  swap d7
  2852.  clr.w d7
  2853.  move.w (a0)+,d6
  2854.  swap d6
  2855.  clr.w d6
  2856.  sub.l d6,d7
  2857.  divs.l d0,d7
  2858.  
  2859.  lsl.l #8,d6
  2860.  lsl.l #8,d7
  2861.  
  2862.  move.w RIGHTBRIGHT,d7
  2863.  move.l d7,a6
  2864.  
  2865.  
  2866.  move.l a0,-(a7)
  2867.  move.l d1,-(a7)
  2868.  move.l #TEXTURES,a0
  2869.  move.w TEXTUREADD,d7
  2870.  bge.s .okaddtes3
  2871.  and.w #$7fff,d7
  2872.  add.l #65536*4,a0
  2873. .okaddtes3:
  2874.  ext.l d7
  2875. ; add.l d7,d7
  2876.  asl.l #8,d7
  2877.  add.l d7,a0
  2878.  move.w #0,d7
  2879.  
  2880.  move.w LEFTBRIGHT,d6
  2881.  
  2882.  subq #1,d0
  2883.  swap d0
  2884.  move.w HIGHPOLY,d0
  2885.  swap d0
  2886.  
  2887.  
  2888. ; d0=xdist
  2889. ; d2=U    a1=DU
  2890. ; d3=V  a4=DV
  2891. ; d4=X  a5=DX
  2892. ; d5=Y  a6=DY
  2893. ; d6=Z  a3=DZ
  2894.  
  2895. ; d0= polynum : polynum : counter : counter
  2896. ; d1= scratch : scratch : scratch : scratch
  2897. ; d2= u : uacc : sv : svacc
  2898. ; d3= v : v : vacc : vacc
  2899. ; d4= x : x : xacc : xacc
  2900. ; d5= su : su : suacc : suacc
  2901. ; d6= z : zacc : bright : brightacc
  2902. ; d7= scratch : scratch : scratch : scratch
  2903.  
  2904. ; a0= textures
  2905. ; a1= uspeed : uspeed : suspeed : suspeed
  2906. ; a2= screen pointer
  2907. ; a3= svspeed : svspeed : svspeed : svspeed
  2908. ; a4= vspeed : vspeed : vspeed : vspeed
  2909. ; a5= xspeed : xspeed : xspeed : xspeed
  2910. ; a6= zspeed : zspeed :brightspeed : brightspeed
  2911. ; a7= shadowmap pointer
  2912.  
  2913.  
  2914.  move.w FIRSTLEN,d0
  2915.  sub.w #1,d0
  2916.  bsr STARTLINE
  2917.  
  2918.  move.l #0,d5
  2919.  move.w #0,d2
  2920.  move.l #0,a3
  2921.  
  2922.  move.w LASTLEN,d0
  2923.  sub.w #1,d0
  2924.  
  2925.  bsr STARTLINE
  2926.  
  2927.  
  2928.  move.l (a7)+,d1
  2929.  move.l (a7)+,a0
  2930.  move.l (a7)+,a2
  2931.  
  2932.  bra .noline
  2933.  
  2934. .firstaway:
  2935.  tst.w d3
  2936.  bge .bothaway
  2937.  
  2938.  
  2939. ; first is away and second is towards...
  2940.  
  2941. ; this really isn't going to work...
  2942.  
  2943.  move.w d0,d7    ; total length
  2944.  move.w d0,d6
  2945.  neg.w d3
  2946.  add.w d2,d3
  2947.  muls d2,d6
  2948.  divs d3,d6    ; length of first bit
  2949.  sub.w d6,d7    ; length of second bit
  2950.  move.w d6,FIRSTLEN
  2951.  move.w d7,LASTLEN
  2952.  
  2953.  tst.w FIRSTLEN
  2954.  beq .bothaway
  2955.  tst.w LASTLEN
  2956.  beq .bothtowards
  2957.  
  2958.  moveq #0,d2
  2959.  moveq #0,d3
  2960.  moveq #0,d4
  2961.  moveq #0,d5
  2962.  move.b 6(a0),d2
  2963.  move.b 7(a0),d3
  2964.  
  2965.  move.w d2,FIRSTU
  2966.  move.w d3,FIRSTV
  2967.  
  2968.  move.w d2,d4
  2969.  move.w d3,d5
  2970.  sub.w #128,d2
  2971.  sub.w #128,d3
  2972.  muls d2,d2
  2973.  muls d3,d3
  2974.  add.l d3,d2
  2975.  jsr CALCSQROOT
  2976.  
  2977.  tst.w d2
  2978.  beq.s .nochng22
  2979.  
  2980.  sub.w #128,d4
  2981.  sub.w #128,d5
  2982.  muls #127,d4
  2983.  muls #127,d5
  2984.  divs d2,d4
  2985.  divs d2,d5
  2986.  add.w #128,d4
  2987.  add.w #128,d5
  2988.  
  2989. .nochng22:
  2990.  
  2991.  move.w d4,MIDU
  2992.  move.w d5,MIDV
  2993.  
  2994.  moveq #0,d4
  2995.  moveq #0,d5
  2996.  move.b 6+RIGHTUVS-LEFTUVS(a0),d4
  2997.  move.b 7+RIGHTUVS-LEFTUVS(a0),d5
  2998.  move.w d4,SECU
  2999.  move.w d5,SECV
  3000.  
  3001.  move.w d4,d2
  3002.  move.w d5,d3
  3003.  
  3004.  sub.w #128,d2
  3005.  sub.w #128,d3
  3006.  muls d2,d2
  3007.  muls d3,d3
  3008.  add.l d3,d2
  3009.  jsr CALCSQROOT
  3010.  
  3011.  tst.w d2
  3012.  beq.s .nochng222
  3013.  
  3014.  sub.w #128,d4
  3015.  sub.w #128,d5
  3016.  muls #127,d4
  3017.  muls #127,d5
  3018.  divs d2,d4
  3019.  divs d2,d5
  3020.  add.w #128,d4
  3021.  add.w #128,d5
  3022.  
  3023. .nochng222:
  3024.  
  3025.  add.w MIDU,d4
  3026.  add.w MIDV,d5
  3027.  asr.w #1,d4
  3028.  asr.w #1,d5
  3029.  move.w d4,MIDU
  3030.  move.w d5,MIDV
  3031.  
  3032.  
  3033.  move.l RIGHTUVS-LEFTUVS(a0),d7
  3034.  move.l (a0)+,d2 
  3035.  
  3036.  and.l #$ffffff,d2
  3037.  and.l #$ffffff,d7
  3038.  
  3039.  moveq #0,d3
  3040.  moveq #0,d5
  3041.  move.w d2,d3
  3042.  move.w d7,d5
  3043.  swap d3
  3044.  swap d5
  3045.  sub.l d3,d5
  3046.  divs.l d0,d5
  3047.  asr.l #8,d5
  3048.  move.w d5,RIGHTBRIGHT
  3049.  asr.l #8,d3
  3050.  move.w d3,LEFTBRIGHT
  3051.  
  3052.  clr.w d2
  3053.  clr.w d7
  3054.  sub.l d2,d7
  3055.  asl.l #8,d2
  3056.  divs.l d0,d7
  3057.  asl.l #8,d7
  3058.  
  3059.  move.l RIGHTUVS-LEFTUVS(a0),d6 
  3060.  move.l (a0)+,d3
  3061.  
  3062.  moveq #0,d4
  3063.  moveq #0,d5
  3064.  
  3065.  move.w MIDU,d4
  3066.  move.w SECU,d5
  3067.  lsl.w #8,d4
  3068.  lsl.w #8,d5
  3069.  
  3070. ; move.w d6,d5
  3071. ; move.w d3,d4
  3072. ; move.b #0,d4
  3073. ; move.b #0,d5
  3074.  
  3075.  sub.l d4,d5
  3076.  divs.l LASTLEN-2,d5
  3077.  
  3078.  move.w d4,d2
  3079.  move.w d5,d7
  3080.  move.l d7,a1
  3081.  moveq #0,d4
  3082.  moveq #0,d5
  3083.  
  3084.  move.w MIDV,d4
  3085.  move.w SECV,d5
  3086.  
  3087.  swap d5
  3088.  swap d4
  3089.  
  3090.  sub.l d4,d5
  3091.  divs.l LASTLEN-2,d5
  3092.  
  3093.  move.l d5,a3
  3094.  move.l d4,d5
  3095.  
  3096.  clr.w d3
  3097.  clr.w d6
  3098.  sub.l d3,d6
  3099.  divs.l d0,d6
  3100.  move.l d6,a4
  3101.  
  3102.  move.w RIGHTUVS-LEFTUVS(a0),d7
  3103.  move.w (a0)+,d4
  3104.  swap d7
  3105.  clr.w d7
  3106.  swap d4
  3107.  clr.w d4
  3108.  sub.l d4,d7
  3109.  divs.l d0,d7
  3110.  move.l d7,a5
  3111.  
  3112. ; move.w RIGHTUVS-LEFTUVS(a0),d7
  3113. ; swap d7
  3114. ; clr.w d7
  3115.  move.w (a0)+,d7
  3116. ; swap d5
  3117. ; clr.w d5
  3118. ; sub.l d5,d7
  3119. ; divs.l d0,d7
  3120. ; move.l d7,a6
  3121.  
  3122.  move.w RIGHTUVS-LEFTUVS(a0),d7
  3123.  swap d7
  3124.  clr.w d7
  3125.  move.w (a0)+,d6
  3126.  swap d6
  3127.  clr.w d6
  3128.  sub.l d6,d7
  3129.  divs.l d0,d7
  3130.  
  3131.  lsl.l #8,d6
  3132.  lsl.l #8,d7
  3133.  
  3134.  move.w RIGHTBRIGHT,d7
  3135.  move.l d7,a6
  3136.  
  3137.  move.l a0,-(a7)
  3138.  move.l d1,-(a7)
  3139.  move.l #TEXTURES,a0
  3140.  move.w TEXTUREADD,d7
  3141.  bge.s .okaddtes4
  3142.  and.w #$7fff,d7
  3143.  add.l #65536*4,a0
  3144. .okaddtes4:
  3145.  ext.l d7
  3146. ; add.l d7,d7
  3147.  asl.l #8,d7
  3148.  add.l d7,a0
  3149.  move.w #0,d7
  3150.  
  3151.  move.w LEFTBRIGHT,d6
  3152.  
  3153.  
  3154.  subq #1,d0
  3155.  swap d0
  3156.  move.w HIGHPOLY,d0
  3157.  swap d0
  3158.  
  3159.  
  3160. ; d0=xdist
  3161. ; d2=U    a1=DU
  3162. ; d3=V  a4=DV
  3163. ; d4=X  a5=DX
  3164. ; d5=Y  a6=DY
  3165. ; d6=Z  a3=DZ
  3166.  
  3167. ; d0= polynum : polynum : counter : counter
  3168. ; d1= scratch : scratch : scratch : scratch
  3169. ; d2= u : uacc : sv : svacc
  3170. ; d3= v : v : vacc : vacc
  3171. ; d4= x : x : xacc : xacc
  3172. ; d5= su : su : suacc : suacc
  3173. ; d6= z : zacc : bright : brightacc
  3174. ; d7= scratch : scratch : scratch : scratch
  3175.  
  3176. ; a0= textures
  3177. ; a1= uspeed : uspeed : suspeed : suspeed
  3178. ; a2= screen pointer
  3179. ; a3= svspeed : svspeed : svspeed : svspeed
  3180. ; a4= vspeed : vspeed : vspeed : vspeed
  3181. ; a5= xspeed : xspeed : xspeed : xspeed
  3182. ; a6= zspeed : zspeed :brightspeed : brightspeed
  3183. ; a7= shadowmap pointer
  3184.  
  3185.  move.w d2,-(a7)
  3186.  move.l d5,-(a7)
  3187.  move.l a3,-(a7)
  3188.  
  3189.  move.w #0,d2
  3190.  move.l #0,d5
  3191.  move.l #0,a3
  3192.  
  3193.  move.w FIRSTLEN,d0
  3194.  subq #1,d0
  3195.  bsr STARTLINE
  3196.  
  3197.  
  3198.  move.l (a7)+,a3
  3199.  move.l (a7)+,d5
  3200.  move.w (a7)+,d2
  3201.  
  3202.  move.w LASTLEN,d0
  3203.  subq #1,d0
  3204.  
  3205.  bsr STARTLINE
  3206.  
  3207.  
  3208.  move.l (a7)+,d1
  3209.  move.l (a7)+,a0
  3210.  move.l (a7)+,a2
  3211.  
  3212.  bra .noline
  3213.  
  3214.  
  3215. .bothaway:
  3216.  
  3217.  move.w #0,6+RIGHTUVS-LEFTUVS(a0)
  3218.  move.w #0,6(a0)
  3219.  
  3220. .bothtowards:
  3221.  
  3222.  ifne PH
  3223.  tst.w 16+RIGHTUVS-LEFTUVS(a0)
  3224.  blt.s .okone
  3225.  tst.w 16(a0)
  3226.  blt.s .okone
  3227.  
  3228.  move.w #0,2(a0)
  3229.  move.w #0,2+RIGHTUVS-LEFTUVS(a0)
  3230.  move.w #0,14(a0)
  3231.  move.w #0,14+RIGHTUVS-LEFTUVS(a0)
  3232.  
  3233. .okone:
  3234.  endc
  3235.  
  3236.  move.l RIGHTUVS-LEFTUVS(a0),d7
  3237.  move.l (a0)+,d2 
  3238.  
  3239.  and.l #$ffffff,d2
  3240.  and.l #$ffffff,d7
  3241.  
  3242.  moveq #0,d3
  3243.  moveq #0,d5
  3244.  move.w d2,d3
  3245.  move.w d7,d5
  3246.  swap d3
  3247.  swap d5
  3248.  sub.l d3,d5
  3249.  divs.l d0,d5
  3250.  asr.l #8,d5
  3251.  move.w d5,RIGHTBRIGHT
  3252.  asr.l #8,d3
  3253.  move.w d3,LEFTBRIGHT
  3254.  
  3255.  clr.w d2
  3256.  clr.w d7
  3257.  sub.l d2,d7
  3258.  asl.l #8,d2
  3259.  divs.l d0,d7
  3260.  asl.l #8,d7
  3261.  
  3262.  move.l RIGHTUVS-LEFTUVS(a0),d6 
  3263.  move.l (a0)+,d3
  3264.  
  3265.  moveq #0,d4
  3266.  moveq #0,d5
  3267.  
  3268.  move.w d6,d5
  3269.  move.w d3,d4
  3270.  move.b #0,d4
  3271.  move.b #0,d5
  3272.  
  3273.  sub.l d4,d5
  3274.  divs.l d0,d5
  3275.  
  3276.  move.w d4,d2
  3277.  move.w d5,d7
  3278.  move.l d7,a1
  3279.  moveq #0,d4
  3280.  moveq #0,d5
  3281.  
  3282.  move.b d6,d5
  3283.  move.b d3,d4
  3284.  
  3285.  swap d5
  3286.  swap d4
  3287.  
  3288.  sub.l d4,d5
  3289.  divs.l d0,d5
  3290.  
  3291.  move.l d5,a3
  3292.  move.l d4,d5
  3293.  
  3294.   
  3295.  clr.w d3
  3296.  clr.w d6
  3297.  sub.l d3,d6
  3298.  divs.l d0,d6
  3299.  
  3300.  asr.l #8,d3        ; XX XX vpos vacc
  3301.  asr.l #8,d6         ; XX XX vspeed vspeed
  3302.  
  3303. ; move.l d6,a4
  3304.  
  3305.  move.w RIGHTUVS-LEFTUVS(a0),d7
  3306.  move.w (a0)+,d4
  3307.  swap d7
  3308.  clr.w d7
  3309.  swap d4
  3310.  clr.w d4
  3311.  sub.l d4,d7
  3312.  divs.l d0,d7
  3313.  asl.l #8,d4
  3314.  asl.l #8,d7
  3315.  move.w d3,d4
  3316.  move.w d6,d7
  3317.  move.l d7,a5
  3318.  
  3319. ; move.w RIGHTUVS-LEFTUVS(a0),d7
  3320. ; swap d7
  3321. ; clr.w d7
  3322.  move.w (a0)+,d7
  3323. ; swap d5
  3324. ; clr.w d5
  3325. ; sub.l d5,d7
  3326. ; divs.l d0,d7
  3327. ; move.l d7,a6
  3328.  
  3329.  move.w RIGHTUVS-LEFTUVS(a0),d7
  3330.  swap d7
  3331.  clr.w d7
  3332.  move.w (a0)+,d6
  3333.  swap d6
  3334.  clr.w d6
  3335.  sub.l d6,d7
  3336.  divs.l d0,d7
  3337.  
  3338.  lsl.l #8,d6
  3339.  lsl.l #8,d7
  3340.  
  3341.  move.w RIGHTBRIGHT,d7
  3342.  move.l d7,a6
  3343.  
  3344.  moveq #0,d7
  3345.  moveq #0,d3
  3346.  move.w RIGHTUVS-LEFTUVS(a0),d7
  3347.  move.w (a0)+,d3
  3348.  
  3349.  addq #2,a0
  3350.  
  3351.  sub.w d3,d7
  3352.  swap d3
  3353.  swap d7
  3354.  divs.l d0,d7
  3355.  
  3356.  move.l d7,a4
  3357.  
  3358.  
  3359.  move.l a0,-(a7)
  3360.  move.l d1,-(a7)
  3361.  move.l #TEXTURES,a0
  3362.  move.w TEXTUREADD,d7
  3363.  bge.s .okaddtes5
  3364.  and.w #$7fff,d7
  3365.  add.l #65536*4,a0
  3366. .okaddtes5:
  3367.  ext.l d7
  3368.  asl.l #8,d7
  3369.  add.l d7,a0
  3370.  move.w #0,d7
  3371.  
  3372.  move.w LEFTBRIGHT,d6
  3373.  
  3374.  subq #1,d0
  3375.  swap d0
  3376.  move.w HIGHPOLY,d0
  3377.  swap d0
  3378.  
  3379.  
  3380. ; d0=xdist
  3381. ; d2=U    a1=DU
  3382. ; d3=V  a4=DV
  3383. ; d4=X  a5=DX
  3384. ; d5=Y  a6=DY
  3385. ; d6=Z  a3=DZ
  3386.  
  3387. ; d0= polynum : polynum : counter : counter
  3388. ; d1= scratch : scratch : scratch : scratch
  3389. ; d2= u : uacc : sv : svacc
  3390. ; d3= pxpos : pxpos : pxacc : pxacc
  3391. ; d4= x : xacc : v : vacc
  3392. ; d5= su : su : suacc : suacc
  3393. ; d6= z : zacc : pypos : pyacc
  3394. ; d7= scratch : scratch : scratch : scratch
  3395.  
  3396. ; a0= textures
  3397. ; a1= uspeed : uspeed : suspeed : suspeed
  3398. ; a2= screen pointer
  3399. ; a3= svspeed : svspeed : svspeed : svspeed
  3400. ; a4= pxspd : pxspd : pxspd : pxspd
  3401. ; a5= xspeed : xspeed : vspeed : vspeed
  3402. ; a6= zspeed : zspeed : pyspeed : pyspeed
  3403. ; a7= shadowmap pointer
  3404.  
  3405.  bsr STARTLINE
  3406.  
  3407.  move.l (a7)+,d1
  3408.  move.l (a7)+,a0
  3409.  move.l (a7)+,a2
  3410.  
  3411. .noline:
  3412.  add.w #320,a2
  3413.  
  3414.  swap d1
  3415.  dbra d1,DOAHORLINEGOUR
  3416.  
  3417.  bra NOPOLYGON
  3418.  
  3419.  
  3420.  
  3421.  
  3422.  
  3423. *******************************
  3424. STARTLINE:
  3425.  
  3426.  move.l a7,SAVESTACK
  3427.  move.l #SHADOWBUFFER,a7
  3428.  
  3429.  moveq #0,d1
  3430.  swap d6
  3431.  move.w d6,d1
  3432.  move.l d4,d7
  3433.  swap d7
  3434.  lsr.w #8,d7
  3435.  move.b d7,d1
  3436.  swap d6
  3437.  
  3438.  swap d0
  3439.  moveq #0,d7
  3440.  move.b (a7,d1.l*2),d7
  3441.  cmp.w d7,d0
  3442.  ble .startlight
  3443.  swap d0
  3444.  bra INTHEDARKGOUR
  3445. .startlight:
  3446.  swap d0
  3447.  bra INTHELIGHTGOUR 
  3448. .startdark:
  3449. ***********************************
  3450.  
  3451.  
  3452.  
  3453. PENUMBRAGOUR:
  3454.  moveq #0,d1
  3455.  swap d6
  3456.  move.w d6,d1
  3457.  move.l d4,d7
  3458.  lsr.l #8,d7
  3459.  swap d7
  3460.  move.b d7,d1
  3461.  swap d6
  3462.  add.l a5,d4
  3463.  add.l a6,d6
  3464.  add.l a3,d5
  3465.  
  3466.  swap d0
  3467.  moveq #0,d7
  3468.  move.b (a7,d1.l*2),d7
  3469.  cmp.w d7,d0
  3470.  ifne SHADOWMAP
  3471.  ble INTOLIGHTGOUR
  3472.  endc
  3473.  ifeq SHADOWMAP
  3474.  bra INTOLIGHTGOUR
  3475.  endc
  3476.  bra.s INTODARKGOUR
  3477.  
  3478. INTHEDARKGOUR:
  3479.  moveq #0,d1
  3480.  swap d6
  3481.  move.w d6,d1
  3482.  move.l d4,d7
  3483.  swap d7
  3484.  asr.w #8,d7
  3485.  move.b d7,d1
  3486.  swap d6
  3487.  add.l a5,d4
  3488.  add.l a6,d6
  3489.  add.l a3,d5
  3490.  
  3491.  swap d0
  3492.  moveq #0,d7
  3493.  move.b (a7,d1.l*2),d7
  3494.  cmp.w d7,d0
  3495.  ifne SHADOWMAP
  3496.  ble.s INTOPENUMGOUR
  3497.  endc
  3498.  ifeq SHADOWMAP
  3499.  bra INTOLIGHTGOUR
  3500.  endc
  3501. INTODARKGOUR:
  3502.  swap d0
  3503.  
  3504. ;**********************
  3505. ; moveq #0,d7
  3506. ;********************** 
  3507.  
  3508.  swap d2
  3509.  move.w d2,d1
  3510.  move.w d4,d7
  3511.  lsr.w #8,d7
  3512.  move.b d7,d1
  3513.  swap d2
  3514.  add.l a1,d2
  3515.  add.l a4,d3
  3516.  
  3517.  move.l #(31*32*256),d7
  3518.  move.b 1(a0,d1.w*4),d7
  3519.  bra DARKplottt
  3520.  
  3521. .noplottt
  3522.  addq #1,a2
  3523.  dbra d0,INTHEDARKGOUR
  3524.  bra DONEDONEBUM
  3525.  
  3526. INTOPENUMGOUR:
  3527.  swap d0
  3528.  
  3529. *********************
  3530. ; moveq #0,d7
  3531. *****************
  3532.  
  3533.  swap d2
  3534.  move.w d2,d1
  3535.  move.w d4,d7
  3536.  lsr.w #8,d7
  3537.  move.b d7,d1
  3538.  swap d2
  3539.  add.l a1,d2
  3540.  add.l a4,d3
  3541.  
  3542.  move.l (a0,d1.w*4),d1
  3543.  moveq #0,d7
  3544.  move.w d6,d7
  3545.  swap d3
  3546.  move.b d3,d7
  3547.  add.w d1,d7
  3548.  swap d3
  3549.  
  3550.  move.b 1(a7,d7.l*2),d7
  3551.  lsl.w #8,d7
  3552.  
  3553. ; sub.w #$1c00,d7
  3554.  asr.w #1,d7
  3555. ; add.w #$1c00,d7
  3556.  neg.w d7
  3557.  add.w #$1f00,d7
  3558.  sub.b d7,d7
  3559.  
  3560.  asl.l #5,d7
  3561.  swap d1
  3562.  move.b d1,d7
  3563.  
  3564.  
  3565.  bra.s PENUMplottt
  3566.  
  3567. .noplottt
  3568.  addq #1,a2
  3569.  dbra d0,PENUMBRAGOUR
  3570.  bra DONEDONEBUM
  3571.  
  3572.  
  3573. INTHELIGHTGOUR:
  3574.  
  3575.  moveq #0,d1
  3576.  swap d6
  3577.  move.w d6,d1
  3578.  move.l d4,d7
  3579.  swap d7
  3580.  lsr.w #8,d7
  3581.  move.b d7,d1
  3582.  swap d6
  3583.  add.l a5,d4
  3584.  add.l a6,d6
  3585.  add.l a3,d5
  3586.  
  3587.  swap d0
  3588.  moveq #0,d7
  3589.  move.b (a7,d1.l*2),d7
  3590.  cmp.w d7,d0
  3591.  
  3592.  
  3593.  ifne SHADOWMAP
  3594.  bgt.s INTOPENUMGOUR
  3595.  endc
  3596.  
  3597. INTOLIGHTGOUR:
  3598.  swap d0
  3599.  
  3600.  swap d2
  3601.  move.w d2,d1
  3602.  move.w d4,d7
  3603.  asr.w #8,d7
  3604.  move.b d7,d1
  3605.  swap d2
  3606.  
  3607.  move.l (a0,d1.w*4),d1        ; SPEC COL OFX OFY
  3608.  
  3609.  add.l a1,d2
  3610.  add.l a4,d3
  3611.  
  3612.  bra.s LIGHTPLOTT
  3613. .noplottt:
  3614.  addq #1,a2
  3615.  dbra d0,INTHELIGHTGOUR
  3616. FLIBBLEY:
  3617.  bra.s DONEDONEBUM
  3618.  
  3619. PENUMplottt
  3620.  move.b GOURPAL(pc,d7.l),(a2)+
  3621.  dbra d0,PENUMBRAGOUR
  3622.  bra.s DONEDONEBUM
  3623.  
  3624. DARKplottt
  3625.  move.b GOURPAL(pc,d7.l),(a2)+
  3626.  dbra d0,INTHEDARKGOUR
  3627.  bra.s DONEDONEBUM
  3628.  
  3629. LIGHTPLOTT:
  3630.  moveq #0,d7
  3631.  
  3632.  move.w d2,d7
  3633.  swap d5
  3634.  move.b d5,d7
  3635.  swap d5
  3636.  
  3637.  ifne BUMPSPEC
  3638.  add.w d1,d7    ; coord in spec map
  3639.  endc
  3640.  
  3641.  swap d1
  3642.  ifeq SPECMAP
  3643.  and.w #$ff,d1
  3644.  endc
  3645.  
  3646.  move.b 1(a7,d7.l*2),d7    ; specular value of point.
  3647.  lsl.w #8,d7
  3648.  
  3649.  ifne SPECULAR 
  3650.  add.w d7,d1
  3651.  endc
  3652.  
  3653.  ifeq SPECULAR
  3654.  tst.w d1
  3655.  endc
  3656.  
  3657.  bgt.s .okshiney
  3658.  and.w #$ff,d1
  3659. .okshiney
  3660.  
  3661.  move.w d6,d7
  3662.  swap d3
  3663.  move.b d3,d7
  3664.  swap d1
  3665.  
  3666.  ifne BUMPPHONG
  3667.  add.w d1,d7
  3668.  endc
  3669.  
  3670.  clr.w d1
  3671.  swap d1
  3672.  move.b 1(a7,d7.l*2),d7 ; brightness of point
  3673.  neg.b d7
  3674.  add.b #31,d7
  3675.  and.w #$ff,d7
  3676.  swap d7
  3677.  lsr.l #3,d7
  3678.  swap d3
  3679.  add.l d7,d1
  3680.  
  3681.  move.b GOURPAL(pc,d1.l),(a2)+
  3682.  dbra d0,INTHELIGHTGOUR
  3683. DONEDONEBUM:
  3684.  move.l SAVESTACK,a7
  3685.  rts
  3686.  
  3687. GOURPAL: incbin "ab3:includes/bigshadow.pal"
  3688.  
  3689.  
  3690.  
  3691.  
  3692. LEFTSHINEV: dc.l 0
  3693. RIGHTSHINEV: dc.l 0
  3694. LEFTSHINEU: dc.l 0
  3695. RIGHTSHINEU: dc.l 0
  3696.  
  3697. TOPPTR: dc.l 0
  3698. TOPPTNUM: dc.w 0
  3699. BOTPTNUM: dc.w 0
  3700. LEFTBRIGHT: dc.w 0
  3701. RIGHTBRIGHT: dc.l 0
  3702. LEFTSPEC: dc.w 0
  3703. RIGHTSPEC: dc.w 0
  3704.  
  3705. ***********************************************
  3706.     
  3707. SIMPLECALCLINE:
  3708.  move.l #ONSCREENPTS,a1
  3709.  
  3710.  move.w 2(a1,d0.w*4),d2        ;fy
  3711.  move.w 2(a1,d1.w*4),d7        ;sy
  3712.  
  3713.  move.l #RIGHTUVS,a3
  3714.  asr.w #2,d2
  3715.  asr.w #2,d7
  3716.  cmp.w d2,d7 
  3717.  beq .noline
  3718.  
  3719.  bgt.s .lineonright
  3720. .lineonleft:
  3721.  move.l #LEFTUVS,a3
  3722.  exg d0,d1
  3723.  exg d2,d7
  3724.  
  3725. .lineonright:
  3726.  move.w d0,TOPPTNUM
  3727.  move.w d1,BOTPTNUM
  3728.  
  3729.  sub.w d2,d7
  3730.  move.w d2,d3
  3731.  muls #20,d3
  3732.  asl.w #4,d2
  3733.  add.w d3,a3
  3734.  move.l a3,TOPPTR
  3735.  
  3736.  move.w d7,YDIFF
  3737.  
  3738.  move.w (a1,d0.w*4),d3        ;fx
  3739.  move.w (a1,d1.w*4),d7        ;sx
  3740.  
  3741.  sub.w d3,d7
  3742.  swap d3
  3743.  swap d7
  3744.  clr.w d3
  3745.  clr.w d7
  3746.  divs.l YDIFF-2,d7
  3747.  move.l d7,a0    ; dx
  3748.  
  3749.  move.l #UVCOORDS,a2
  3750.  move.l #SHADOWPTS,a1
  3751.  
  3752.  move.w (a2,d0.w*4),d4
  3753.  move.w 2(a2,d0.w*4),d5
  3754.  move.w (a2,d1.w*4),d6
  3755.  move.w 2(a2,d1.w*4),d7
  3756.  
  3757.  sub.w d4,d6
  3758.  sub.w d5,d7
  3759.  swap d4
  3760.  swap d5
  3761.  clr.w d4
  3762.  clr.w d5
  3763.  swap d6
  3764.  swap d7
  3765.  clr.w d6
  3766.  clr.w d7
  3767.  
  3768.  divs.l YDIFF-2,d6
  3769.  divs.l YDIFF-2,d7
  3770.  
  3771.  move.l d6,a4
  3772.  move.l d7,a5
  3773.  
  3774.  muls #10,d0
  3775.  muls #10,d1
  3776.  move.l (a1,d0.w),d6
  3777.  
  3778.  move.l (a1,d1.w),d7
  3779.  asl.l #5,d6
  3780.  asl.l #5,d7
  3781.  sub.l d6,d7
  3782.  divs.l YDIFF-2,d7
  3783.  move.l d7,a2
  3784.  move.l d6,a6
  3785.  
  3786.  move.l 4(a1,d0.w),d6
  3787.  move.l 4(a1,d1.w),d7
  3788.  asl.l #5,d6
  3789.  asl.l #5,d7
  3790.  sub.l d6,d7
  3791.  divs.l YDIFF-2,d7
  3792.  exg d7,a6
  3793.  exg d7,d6
  3794.  
  3795.  move.w 8(a1,d0.w),d0
  3796.  move.w 8(a1,d1.w),d1
  3797.  swap d0
  3798.  swap d1
  3799.  clr.w d0
  3800.  clr.w d1
  3801.  asr.l #2,d0
  3802.  asr.l #2,d1
  3803.  sub.l d0,d1
  3804.  divs.l YDIFF-2,d1
  3805.  move.l d1,a1
  3806.  move.l YDIFF-2,d1
  3807.  subq #1,d1
  3808.  
  3809. ; d3=sx a0=dsx
  3810. ; d4=u a4=du
  3811. ; d5=v a5=dv
  3812. ; d6=x a2=dx
  3813. ; d7=y a6=dy
  3814. ; d0=z a1=dz
  3815. ; d1=dsy
  3816.  
  3817.  
  3818.  add.l #128*65536,d6
  3819.  add.l #128*65536,d7
  3820.  add.l #128*65536,d0
  3821.  
  3822. .PUTINLINE:
  3823.  swap d3
  3824.  move.w d3,(a3)+
  3825.  swap d3
  3826.  add.l a0,d3
  3827.  move.l d4,(a3)+
  3828.  add.l a4,d4
  3829.  move.l d5,(a3)+
  3830.  swap d6
  3831.  add.l a5,d5
  3832.  move.w d6,(a3)+
  3833.  swap d6
  3834.  swap d7
  3835.  add.l a2,d6
  3836.  move.w d7,(a3)+
  3837.  swap d7
  3838.  swap d0
  3839.  add.l a6,d7
  3840.  move.w d0,(a3)+
  3841.  addq #4,a3
  3842.  swap d0
  3843.  add.l a1,d0
  3844.  dbra d1,.PUTINLINE
  3845.  
  3846.  tst.b Gouraud
  3847.  beq .noline
  3848.  
  3849.  move.w TOPPTNUM,d0
  3850.  move.w BOTPTNUM,d1
  3851.  move.l TOPPTR,a3
  3852.  moveq #0,d6
  3853.  move.w YDIFF,d6
  3854.  
  3855.  move.l #SPECBRIGHTS,a2
  3856.  
  3857.  moveq #0,d2
  3858.  moveq #0,d3
  3859.  move.b (a2,d0.w*4),d2
  3860.  move.b 1(a2,d0.w*4),d3
  3861.  sub.w #128,d2
  3862.  sub.w #128,d3
  3863.  
  3864.  move.w d2,d4
  3865.  move.w d3,d5
  3866.  muls ACOS,d2
  3867.  muls ASIN,d3
  3868.  sub.l d3,d2
  3869.  muls ASIN,d4
  3870.  muls ACOS,d5
  3871.  add.l d5,d4
  3872.  asl.l #2,d2
  3873.  swap d2
  3874.  asl.l #2,d4
  3875.  swap d4
  3876.  
  3877.  add.w #128,d2
  3878.  add.w #128,d4
  3879.  move.w d2,FSX
  3880.  move.w d4,FSY
  3881.  
  3882.  moveq #0,d2
  3883.  moveq #0,d3
  3884.  move.b (a2,d1.w*4),d2
  3885.  move.b 1(a2,d1.w*4),d3
  3886.  sub.w #128,d2
  3887.  sub.w #128,d3
  3888.  
  3889.  move.w d2,d4
  3890.  move.w d3,d5
  3891.  muls ACOS,d2
  3892.  muls ASIN,d3
  3893.  sub.l d3,d2
  3894.  muls ASIN,d4
  3895.  muls ACOS,d5
  3896.  add.l d5,d4
  3897.  asl.l #2,d2
  3898.  swap d2
  3899.  asl.l #2,d4
  3900.  swap d4
  3901.  
  3902.  add.w #128,d2
  3903.  add.w #128,d4
  3904.  move.w d2,SSX
  3905.  move.w d4,SSY
  3906.  
  3907.  
  3908.  move.w 2(a2,d0.w*4),d2
  3909.  move.w 2(a2,d1.w*4),d3
  3910.  
  3911.  asr.w #4,d2
  3912.  asr.w #4,d3
  3913.  
  3914.  bra .bothtowards
  3915.  
  3916.  tst.w d2
  3917.  blt .firsttowards
  3918.  bgt.s .firstaway
  3919.  
  3920.  tst.w d3
  3921.  ble .bothtowards
  3922.  bra .bothaway
  3923.  
  3924. .firstaway
  3925.  tst.w d3
  3926.  blt .sectowards
  3927.  bra .bothaway
  3928.  
  3929. .firsttowards:
  3930.  tst.w d3
  3931.  ble .bothtowards
  3932.  
  3933. ; First one is towards, the second away.
  3934. ; Do the line in two bits: one heading
  3935. ; from the first point to the rim, the
  3936. ; other heading from the rim to the second
  3937. ; point and flagged as behind.
  3938.  
  3939.  move.w d6,d7    ; total length to draw
  3940.  move.w d2,FIRSTY
  3941.  move.w d3,LASTY
  3942.  
  3943.  neg.w d2
  3944.  add.w d2,d3     ; total change in Y
  3945.  
  3946.  bra.s .onetowards
  3947.  
  3948. .sectowards:
  3949.  move.w d6,d7    ; total length to draw
  3950.  move.w d2,FIRSTY
  3951.  move.w d3,LASTY
  3952.  neg.w d3
  3953.  add.w d2,d3
  3954.  
  3955. .onetowards:
  3956.  
  3957.  muls d2,d6
  3958.  divs d3,d6    ; length of first bit of line.
  3959.  
  3960.  ext.l d6
  3961.  ext.l d7
  3962.  
  3963.  move.w d6,FIRSTLEN
  3964.  sub.l d6,d7
  3965.  move.w d7,LASTLEN
  3966.  
  3967.  add.l d7,d6
  3968.  
  3969.  move.w FIRSTY,d2
  3970.  move.w LASTY,d3
  3971.  swap d2
  3972.  clr.w d2
  3973.  swap d3
  3974.  clr.w d3
  3975.  sub.l d2,d3
  3976.  divs.l d6,d3
  3977.  move.l d3,a6
  3978.  move.l d2,d7
  3979.  
  3980.  moveq #0,d2
  3981.  moveq #0,d3
  3982.  moveq #0,d4
  3983.  moveq #0,d5
  3984.  move.b (a2,d0.w*4),d2
  3985.  move.b 1(a2,d0.w*4),d3
  3986.  
  3987.  move.w d2,FIRSTU
  3988.  move.w d3,FIRSTV
  3989.  
  3990.  move.w d2,d4
  3991.  move.w d3,d5
  3992.  sub.w #128,d2
  3993.  sub.w #128,d3
  3994.  muls d2,d2
  3995.  muls d3,d3
  3996.  add.l d3,d2
  3997.  jsr CALCSQROOT
  3998.  
  3999.  tst.w d2
  4000.  beq.s .nochng
  4001.  
  4002.  sub.w #128,d4
  4003.  sub.w #128,d5
  4004.  muls #127,d4
  4005.  muls #127,d5
  4006.  divs d2,d4
  4007.  divs d2,d5
  4008.  add.w #128,d4
  4009.  add.w #128,d5
  4010.  
  4011. .nochng:
  4012.  
  4013.  move.w d4,MIDU
  4014.  move.w d5,MIDV
  4015.  
  4016.  move.b (a2,d1.w*4),d4
  4017.  move.b 1(a2,d1.w*4),d5
  4018.  move.w d4,SECU
  4019.  move.w d5,SECV
  4020.  
  4021. ; move.w d4,d2
  4022. ; move.w d5,d3
  4023. ;
  4024. ; sub.w #128,d2
  4025. ; sub.w #128,d3
  4026. ; muls d2,d2
  4027. ; muls d3,d3
  4028. ; add.l d3,d2
  4029. ; jsr CALCSQROOT
  4030. ;
  4031. ; tst.w d2
  4032. ; beq.s .nochng2
  4033. ;
  4034. ; sub.w #128,d4
  4035. ; sub.w #128,d5
  4036. ; muls #127,d4
  4037. ; muls #127,d5
  4038. ; divs d2,d4
  4039. ; divs d2,d5
  4040. ; add.w #128,d4
  4041. ; add.w #128,d5
  4042. ; 
  4043. ;.nochng2:
  4044. ;
  4045. ; add.w MIDU,d4
  4046. ; add.w MIDV,d5
  4047. ; asr.w #1,d4
  4048. ; asr.w #1,d5
  4049. ; move.w d4,MIDU
  4050. ; move.w d4,MIDV
  4051.  
  4052.  move.l #NORMBRIGHTS,a2
  4053.  move.w (a2,d0.w*2),d0
  4054.  move.w (a2,d1.w*2),d1
  4055.  
  4056.  sub.w d0,d1
  4057.  swap d1
  4058.  swap d0
  4059.  divs.l d6,d1
  4060.  
  4061.  move.w FIRSTLEN,d6
  4062.  beq.s .nofirstbit
  4063.  ext.l d6
  4064.  
  4065.  moveq #0,d2
  4066.  moveq #0,d3
  4067.  moveq #0,d4
  4068.  moveq #0,d5
  4069.  move.w FIRSTU,d2
  4070.  move.w MIDU,d3
  4071.  move.w FIRSTV,d4
  4072.  move.w MIDV,d5
  4073.  
  4074.  sub.w d2,d3
  4075.  swap d2
  4076.  swap d3
  4077.  divs.l d6,d3
  4078.  move.l d3,a4
  4079.  
  4080.  sub.w d4,d5
  4081.  swap d4
  4082.  swap d5
  4083.  divs.l d6,d5
  4084.  move.l d5,a5
  4085.  
  4086.  bsr DOABITOFLINE
  4087. .nofirstbit:
  4088.  
  4089.  move.w LASTLEN,d6
  4090.  beq.s .nosecbit
  4091.  ext.l d6
  4092.  
  4093.  moveq #0,d2
  4094.  moveq #0,d3
  4095.  moveq #0,d4
  4096.  moveq #0,d5
  4097.  move.w MIDU,d2
  4098.  move.w SECU,d3
  4099.  move.w MIDV,d4
  4100.  move.w SECV,d5
  4101.  
  4102.  sub.w d2,d3
  4103.  swap d2
  4104.  swap d3
  4105.  divs.l d6,d3
  4106.  move.l d3,a4
  4107.  
  4108.  sub.w d4,d5
  4109.  swap d4
  4110.  swap d5
  4111.  divs.l d6,d5
  4112.  move.l d5,a5
  4113.  
  4114.  bsr DOABITOFLINE
  4115. .nosecbit:
  4116.  
  4117.  bra .noline
  4118.  
  4119. .bothaway
  4120.  
  4121. ; Both are away, so do it simply.
  4122.  
  4123. .bothtowards:
  4124.  
  4125. ; Both are towards, so do it simply and flag all
  4126. ; points as towards.
  4127.  
  4128.  swap d2
  4129.  clr.w d2
  4130.  swap d3
  4131.  clr.w d3
  4132.  sub.l d2,d3
  4133.  divs.l d6,d3
  4134.  move.l d3,a6
  4135.  move.l d2,d7
  4136.  
  4137.  moveq #0,d2
  4138.  moveq #0,d3
  4139.  moveq #0,d4
  4140.  moveq #0,d5
  4141. ; move.b (a2,d0.w*4),d2
  4142. ; move.b (a2,d1.w*4),d3
  4143. ; move.b 1(a2,d0.w*4),d4
  4144. ; move.b 1(a2,d1.w*4),d5
  4145.  
  4146.  move.w FSX,d2
  4147.  move.w SSX,d3
  4148.  move.w FSY,d4
  4149.  move.w SSY,d5
  4150.  
  4151.  sub.w d2,d3
  4152.  swap d2
  4153.  swap d3
  4154.  divs.l d6,d3
  4155.  move.l d3,a4
  4156.  
  4157.  sub.w d4,d5
  4158.  swap d4
  4159.  swap d5
  4160.  divs.l d6,d5
  4161.  move.l d5,a5
  4162.  
  4163.  move.l #NORMBRIGHTS,a2
  4164.  movem.l d2/d4,-(a7)
  4165.  
  4166.  moveq #0,d2
  4167.  moveq #0,d3
  4168.  move.b (a2,d0.w*2),d2
  4169.  move.b 1(a2,d0.w*2),d3
  4170.  sub.w #128,d2
  4171.  sub.w #128,d3
  4172.  
  4173.  move.w d2,d4
  4174.  move.w d3,d5
  4175.  muls ACOS,d2
  4176.  muls ASIN,d3
  4177.  sub.l d3,d2
  4178.  muls ASIN,d4
  4179.  muls ACOS,d5
  4180.  add.l d5,d4
  4181.  asl.l #2,d2
  4182.  swap d2
  4183.  asl.l #2,d4
  4184.  swap d4
  4185.  
  4186.  add.w #128,d2
  4187.  add.w #128,d4
  4188.  move.w d2,FSX
  4189.  move.w d4,FSY
  4190.  
  4191.  moveq #0,d2
  4192.  moveq #0,d3
  4193.  move.b (a2,d1.w*2),d2
  4194.  move.b 1(a2,d1.w*2),d3
  4195.  sub.w #128,d2
  4196.  sub.w #128,d3
  4197.  
  4198.  move.w d2,d4
  4199.  move.w d3,d5
  4200.  muls ACOS,d2
  4201.  muls ASIN,d3
  4202.  sub.l d3,d2
  4203.  muls ASIN,d4
  4204.  muls ACOS,d5
  4205.  add.l d5,d4
  4206.  asl.l #2,d2
  4207.  swap d2
  4208.  asl.l #2,d4
  4209.  swap d4
  4210.  
  4211.  add.w #128,d2
  4212.  add.w #128,d4
  4213.  move.w d2,SSX
  4214.  move.w d4,SSY
  4215.  
  4216.  moveq #0,d0
  4217.  moveq #0,d1
  4218.  moveq #0,d3
  4219.  moveq #0,d5
  4220.  
  4221.  move.w FSY,d3
  4222.  move.w SSY,d5
  4223.  move.w FSX,d0
  4224.  move.w SSX,d1
  4225.  
  4226.  ext.l d0
  4227.  ext.l d1
  4228.  sub.w d0,d1
  4229.  swap d1
  4230.  swap d0
  4231.  divs.l d6,d1
  4232.  
  4233.  ext.l d3
  4234.  ext.l d5
  4235.  sub.w d3,d5
  4236.  swap d5
  4237.  swap d3
  4238.  divs.l d6,d5
  4239.  
  4240.  movem.l (a7)+,d2/d4
  4241.  
  4242.  move.l d6,-(a7)
  4243.  bsr DOABITOFLINE
  4244.  move.l (a7)+,d6
  4245.  
  4246.  move.w TOPPTNUM,d0
  4247.  move.w BOTPTNUM,d1
  4248.  move.l TOPPTR,a3
  4249.  move.l #NORMVECTS,a2
  4250.  muls #6,d0
  4251.  muls #6,d1
  4252.  moveq #0,d2
  4253.  moveq #0,d3
  4254.  move.w 2(a2,d0.w),d2    ; firsty
  4255.  move.w 2(a2,d1.w),d3    ; secy
  4256.  sub.w d2,d3
  4257.  swap d3
  4258.  swap d2
  4259.  divs.l d6,d3
  4260.  
  4261.  subq #1,d6
  4262. .stickiny
  4263.  swap d2
  4264.  move.w d2,18(a3)
  4265.  swap d2
  4266.  add.l d3,d2
  4267.  add.w #20,a3
  4268.  dbra d6,.stickiny
  4269.  
  4270. .noline:
  4271.  rts
  4272.  
  4273.  DOABITOFLINE:
  4274.  subq #1,d6
  4275.  
  4276. .STICKINGOUR:
  4277.  swap d7
  4278.  move.b d7,2(a3)
  4279.  swap d7
  4280.  add.l a6,d7
  4281.  swap d0
  4282.  move.w d0,4(a3)
  4283.  swap d0
  4284.  add.l d1,d0
  4285.  swap d2
  4286.  move.b d2,8(a3)
  4287.  swap d4
  4288.  move.b d4,9(a3)
  4289.  swap d4
  4290.  swap d3
  4291.  move.w d3,16(a3)
  4292.  swap d3
  4293.  add.l d5,d3
  4294.  
  4295.  adda.w #20,a3
  4296.  swap d2
  4297.  add.l a4,d2
  4298.  add.l a5,d4
  4299.  dbra d6,.STICKINGOUR
  4300.  
  4301.  rts
  4302.  
  4303. FIRSTY: dc.w 0
  4304. LASTY: dc.w 0
  4305. FIRSTU: dc.w 0
  4306. SECU: dc.w 0
  4307. FIRSTV: dc.w 0
  4308. SECV: dc.w 0
  4309.     dc.w 0
  4310. FIRSTLEN: dc.w 0
  4311.     dc.w 0
  4312. LASTLEN: dc.w 0
  4313. MIDU: dc.w 0
  4314. MIDV: dc.w 0
  4315.  
  4316. *!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  4317.  
  4318.  
  4319.  
  4320. ************************************************
  4321. ************************************************
  4322. ************************************************
  4323. ************************************************
  4324. ************************************************
  4325. ************************************************
  4326. ************************************************
  4327. ************************************************
  4328. ************************************************
  4329. ************************************************
  4330. ************************************************
  4331. ************************************************
  4332. ************************************************
  4333. ************************************************
  4334. ************************************************
  4335. ************************************************
  4336. ************************************************
  4337.  
  4338.  move.w d3,TOPLINE
  4339.  move.w d4,BOTLINE
  4340.  
  4341.  
  4342.  
  4343.  
  4344. *********************************************
  4345.  
  4346. CALCSQROOT:
  4347.  tst.l d2
  4348.  beq .oksqr
  4349.  
  4350.  movem.l d0/d1/d3-d7/a0-a6,-(a7)
  4351.  
  4352.  move.w #31,d0
  4353. .findhigh
  4354.  btst d0,d2
  4355.  bne .foundhigh
  4356.  dbra d0,.findhigh
  4357. .foundhigh
  4358.  asr.w #1,d0
  4359.  clr.l d3
  4360.  bset d0,d3
  4361.  move.l d3,d0
  4362.  
  4363.  move.w d0,d1
  4364.  muls d1,d1    ; x*x
  4365.  sub.l d2,d1    ; x*x-a
  4366.  asr.l #1,d1    ; (x*x-a)/2
  4367.  divs d0,d1    ; (x*x-a)/2x
  4368.  sub.w d1,d0    ; second approx
  4369.  bgt .stillnot0
  4370.  move.w #1,d0
  4371. .stillnot0
  4372.  
  4373.  move.w d0,d1
  4374.  muls d1,d1
  4375.  sub.l d2,d1
  4376.  asr.l #1,d1
  4377.  divs d0,d1
  4378.  sub.w d1,d0    ; second approx
  4379.  bgt .stillnot02
  4380.  move.w #1,d0
  4381. .stillnot02
  4382.  
  4383.  move.w d0,d1
  4384.  muls d1,d1
  4385.  sub.l d2,d1
  4386.  asr.l #1,d1
  4387.  divs d0,d1
  4388.  sub.w d1,d0    ; second approx
  4389.  bgt .stillnot03
  4390.  move.w #1,d0
  4391. .stillnot03
  4392.  
  4393.  move.w d0,d2
  4394.  ext.l d2
  4395.  
  4396.  movem.l (a7)+,d0/d1/d3-d7/a0-a6
  4397.  
  4398. .oksqr
  4399.  rts
  4400.  
  4401.  
  4402. **********************************************
  4403. **********************************************
  4404. **********************************************
  4405. **********************************************
  4406. **********************************************
  4407. **********************    ************************
  4408. **********************************************
  4409. **********************************************
  4410. **********************************************
  4411. **********************************************
  4412. **********************************************
  4413. **********************************************
  4414. **********************************************
  4415. **********************************************
  4416. **********************************************
  4417. **********************************************
  4418. **********************************************
  4419. **********************************************
  4420. **********************************************
  4421.  
  4422. TOPLINE: dc.w 0
  4423. BOTLINE: dc.w 0
  4424.  
  4425.  
  4426.  
  4427. **********************************************
  4428. **********************************************
  4429. **********************************************
  4430. **********************************************
  4431. **********************************************
  4432. **********************************************
  4433. **********************************************
  4434. **********************************************
  4435. **********************************************
  4436. **********************************************
  4437. **********************************************
  4438. **********************************************
  4439. **********************************************
  4440. **********************************************
  4441. **********************************************
  4442. **********************************************
  4443. **********************************************
  4444. **********************************************
  4445. **********************************************
  4446.     
  4447.  
  4448.     
  4449.  dc.w 0
  4450. YDIFF: dc.w 0
  4451.  
  4452. SPINAROUND: dc.w 0    
  4453. XCOS: dc.w 0
  4454. YCOS: dc.w 0
  4455. XSIN: dc.w 0
  4456. YSIN: dc.w 0
  4457. XCOS3: dc.w 0
  4458. YCOS3: dc.w 0
  4459. XSIN3: dc.w 0
  4460. YSIN3: dc.w 0
  4461. XCOS2: dc.w 0
  4462. YCOS2: dc.w 0
  4463. XSIN2: dc.w 0
  4464. YSIN2: dc.w 0
  4465. XADD: dc.l 0
  4466. YADD: dc.l 0
  4467. ZADD: dc.l 0
  4468. XOFF: dc.w 0
  4469. YOFF: dc.w 0
  4470. OLDXM: dc.w 0
  4471. OLDYM: dc.w 0
  4472.  
  4473.  
  4474.  
  4475. TEXTUREADD: dc.w 0
  4476.  
  4477.  
  4478. **********************************************************
  4479.  
  4480. UVCOORDS: ds.l 250
  4481. ROTATEDPTS: ds.l 250*4
  4482. SHADOWPTS: ds.l 250*4
  4483. ONSCREENPTS: ds.l 250
  4484.  
  4485. ZOFF:
  4486.  ifeq LARGESCREEN
  4487.  dc.w 768
  4488.  endc
  4489.  ifne LARGESCREEN
  4490.  dc.w 300
  4491.  endc
  4492.  
  4493. LEFTRIGHT: ds.l 256
  4494.  
  4495. POLYGONDATA:
  4496.  ds.b 30000
  4497.  
  4498. OBJNAME: dc.b "ab3:vectobj/testcube",0
  4499.  even
  4500. doslibname: dc.b 'dos.library',0
  4501.  even
  4502. doslib: dc.l 0
  4503.  
  4504. ****************************
  4505.  
  4506. SINETABLE:
  4507.  incbin "ab3:includes/bigsine"
  4508.  
  4509.  
  4510. YANG: dc.w 0
  4511. XANG: dc.w 0
  4512.  
  4513.  
  4514. xmouse: dc.w 0
  4515. ymouse: dc.w 0
  4516.  
  4517. spleen: dc.w 0
  4518. lastspleen: dc.w 0
  4519.  
  4520. COPIEDPAL:
  4521.  dc.w 256,0
  4522.  ds.l 3*256
  4523.  ds.l 10
  4524.  
  4525. SHADOWBUFFER:
  4526. HIGHLIGHT: incbin "work:temp/HIGHLIGHT"
  4527.  
  4528. PALETTEBIT:
  4529. ; incbin "256palette"
  4530. ; dc.w $ffff,$fffe
  4531.  
  4532.  incbin "ab3:shadowtex/shadowpal"
  4533.  
  4534.  include "ab3:source_4000/chunky.s"
  4535.  
  4536. willy: ds.w 48
  4537.  
  4538.  
  4539. PALS:
  4540.  ds.l 2*49
  4541.  
  4542. pregour: dc.b 0
  4543. Gouraud: dc.b 0
  4544.  
  4545. PointAngPtr: dc.l 0
  4546. FRAMENUM: dc.w 0
  4547. PolyAngPtr: dc.l 0
  4548. PtsPtr: dc.l 0
  4549. LinesPtr: dc.l 0
  4550. POINTER_TO_POINTERS: dc.l 0
  4551. FRAME: dc.w 4
  4552. FLIBBLE: dc.w 0
  4553. START_OF_OBJECT: dc.l 0
  4554. num_points: dc.w 0
  4555. num_frames: dc.w 0
  4556. SORTIT: dc.w 0
  4557. PartBuffer: ds.l 2*32
  4558. endparttab:
  4559.  
  4560. x1: dc.w 0
  4561. y1: dc.w 0
  4562. z1: dc.w 0
  4563. x2: dc.w 0
  4564. y2: dc.w 0
  4565. z2: dc.w 0
  4566. x2b: dc.w 0
  4567. y2b: dc.w 0
  4568. z2b: dc.w 0
  4569.  
  4570. x3: dc.w 0
  4571. y3: dc.w 0
  4572. z3: dc.w 0
  4573.  
  4574. l1: dc.w 0
  4575. l2: dc.w 0
  4576.  
  4577. OBJONOFF: dc.l 0
  4578.  
  4579. SAVEHIGHS: ds.w 30
  4580.  
  4581. FASTBUFFER:
  4582.  dc.l fasty
  4583.  
  4584.  DS.B 64*256
  4585. fasty: ds.b 320*256
  4586.  ds.b 64*256
  4587.  
  4588.  ifne MOTIONBLUR
  4589. fasty2:
  4590.  ds.b 320*256
  4591.  endc
  4592.  
  4593. NORMBRIGHTS: ds.w 250
  4594.  
  4595. SPECBRIGHTS:
  4596.  dcb.l 100,31
  4597.  
  4598. ENDNORM:
  4599.  
  4600. LEFTUVS: ds.w 10*256
  4601. RIGHTUVS: ds.w 10*256
  4602.  
  4603. NORMVECTS: ds.w 3*250
  4604.  
  4605. ;WORLD: incbin "ab3:includes/world"
  4606.  
  4607. ;TWEEN: incbin "ab3:includes/tweenbrightfile"
  4608.  
  4609.  
  4610.  
  4611. NEBBIE: incbin "work:temp/nebbieroar"
  4612.     ds.l (192/4)*16
  4613.  
  4614.  SECTION blib,code_f
  4615.  
  4616. TEXTURES:
  4617.  incbin "ab3:shadowtex/shadowmaps"
  4618.  even
  4619.  
  4620. BLUR:
  4621.  ifne MOTIONBLUR
  4622.  incbin "ab3:shadowtex/blurfile"
  4623.  endc
  4624.  
  4625. Font: dc.l fontplace
  4626.  
  4627. fontplace: incbin "ab3:XENFONT.bin"
  4628.  
  4629.  SECTION BGDROP,code_c
  4630.  
  4631. RAWSCRN:
  4632.  ds.l 2560*8
  4633.